Thema Datum  Von Nutzer Rating
Antwort
02.02.2017 19:33:50 BlackJack66
NotSolved
02.02.2017 19:55:51 Crazy Tom
NotSolved
03.02.2017 08:16:30 BlackJack66
NotSolved
03.02.2017 07:08:40 GraFri
NotSolved
03.02.2017 08:26:41 BlackJack66
NotSolved
Blau Datum in InputBox
 03.02.2017 10:58:32 Gast70117
NotSolved
03.02.2017 13:40:21 BlackJack66
NotSolved
03.02.2017 15:50:24 SJ
NotSolved
03.02.2017 17:21:27 Gast10567
NotSolved
04.02.2017 12:33:51 SJ
NotSolved
04.02.2017 09:02:31 Gast70117
NotSolved
04.02.2017 20:30:12 GraGri
Solved
14.02.2017 08:06:07 BlackJack66
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
03.02.2017 10:58:32		 Views:
740		 Rating:
     
Antwort:
  Ja
Thema:
Datum in InputBox

Hi BlackJack66,

du willst genau "DD.MM.YYYY", dann z.B. so

Option Explicit

Sub Test()

ThisWorkbook.Sheets("Tabelle1").Range("g13").Value = _
TestIt(InputBox("Wann geprüft? Bitte Datum eingeben!", , Format(Now, "DD.MM.YYYY")))

End Sub

Function TestIt(strInput As String) As String
Const strFail As String = "Bitte korrektes Datum eingeben"
Dim dteDate As Date
On Error GoTo Errorhandle

If Len(strInput) = 10 Then
   dteDate = CDate(strInput)
   TestIt = Format(dteDate, "DD.MM.YYYY")
Else
   TestIt = strFail
End If
Exit Function

Errorhandle:
TestIt = strFail
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.02.2017 19:33:50 BlackJack66
NotSolved
02.02.2017 19:55:51 Crazy Tom
NotSolved
03.02.2017 08:16:30 BlackJack66
NotSolved
03.02.2017 07:08:40 GraFri
NotSolved
03.02.2017 08:26:41 BlackJack66
NotSolved
Blau Datum in InputBox
 03.02.2017 10:58:32 Gast70117
NotSolved
03.02.2017 13:40:21 BlackJack66
NotSolved
03.02.2017 15:50:24 SJ
NotSolved
03.02.2017 17:21:27 Gast10567
NotSolved
04.02.2017 12:33:51 SJ
NotSolved
04.02.2017 09:02:31 Gast70117
NotSolved
04.02.2017 20:30:12 GraGri
Solved
14.02.2017 08:06:07 BlackJack66
NotSolved