Supportnet / Forum / Tabellenkalkulation
Benutzerdefiniertes Datums Format
Frage
Wie kann ich einer Variablen ein benutzerdefiniertes Datumsformat zuweisen, z.B dd-mm-yy
Antwort 1 von Errol
Moin erstmal,
was meinst Du mit Variablen?
Gruß Errol
was meinst Du mit Variablen?
Gruß Errol
Antwort 2 von ChristophL
Moinsen,
ich frage über eine InputBox ein Datum ab, und weiß das einer Variablen zu:
Dim vBD as Date
Sub NeuesDatum()
vBD=Inputbox(Prompt:="Bitte geben Sie das Datum im Format dd-mm-yy ein....")
Nun möchte ich abfragen bzw. erkennen falls ein falsches Datum bzw. ein Text eingegeben wird.
Dies möchte ich dann über ein MsgBox ausgeben.
ich frage über eine InputBox ein Datum ab, und weiß das einer Variablen zu:
Dim vBD as Date
Sub NeuesDatum()
vBD=Inputbox(Prompt:="Bitte geben Sie das Datum im Format dd-mm-yy ein....")
Nun möchte ich abfragen bzw. erkennen falls ein falsches Datum bzw. ein Text eingegeben wird.
Dies möchte ich dann über ein MsgBox ausgeben.
Antwort 3 von Nununu
Probier mal:
Start -> Systemsteuerung -> Regions- und Sprachoptionen -> in dem Reiter ´Regionale Einstellungen´ auf ´Anpassen´ -> In dem Reiter ´Datum´ und ´Uhrzeit´ können die Einstellungen individuell abgepasst werden.
Viel Spaß =)
Greez Nununu
Start -> Systemsteuerung -> Regions- und Sprachoptionen -> in dem Reiter ´Regionale Einstellungen´ auf ´Anpassen´ -> In dem Reiter ´Datum´ und ´Uhrzeit´ können die Einstellungen individuell abgepasst werden.
Viel Spaß =)
Greez Nununu
Antwort 4 von Nununu
Ups hab gerade was verwechselt:
Du meinst ja Exel.....
Da hab ich keine Ahnung.......Schade
Du meinst ja Exel.....
Da hab ich keine Ahnung.......Schade
Antwort 5 von ChristophL
Kein Problem...trotzdem danke
Christoph
Christoph
Antwort 6 von Ahnan
Hallo Christoph,
so geht es zum Beispiel:
Sub NeuesDatum()
Dim vBD As String
vBD = Application.InputBox("Bitte geben Sie das Datum im Format dd-mm-yy ein...." & _
VBA.Chr(10) & "Beispiel:", "Datum eingeben !", "01-01-06")
If vBD Like "??-??-??" Then
MsgBox "O.K. ! Das Datum wurde korrekt eingegeben !", vbInformation
Else
MsgBox "FEHLER ! Das Datum darf nur im Format dd-mm-yy eingegeben werden !" & _
VBA.Chr(10) & "Oder Eingabe wurde abgebrochen !", vbExclamation
End If
End Sub
Viel Spass damit
MfG
so geht es zum Beispiel:
Sub NeuesDatum()
Dim vBD As String
vBD = Application.InputBox("Bitte geben Sie das Datum im Format dd-mm-yy ein...." & _
VBA.Chr(10) & "Beispiel:", "Datum eingeben !", "01-01-06")
If vBD Like "??-??-??" Then
MsgBox "O.K. ! Das Datum wurde korrekt eingegeben !", vbInformation
Else
MsgBox "FEHLER ! Das Datum darf nur im Format dd-mm-yy eingegeben werden !" & _
VBA.Chr(10) & "Oder Eingabe wurde abgebrochen !", vbExclamation
End If
End Sub
Viel Spass damit
MfG
Antwort 7 von ChristophL
hallo Ahnan,
danke für die Hilfe
Gruß
Christoph
danke für die Hilfe
Gruß
Christoph