gleich noch eine Frage hinterher.
Ich fordere den Anwender per inputbox auf, den Namen des Tabellenblatts in der Form TT.MM.JJ einzugeben. Wie kann ich das Format nach der Eingabe auf seine Richtigkeit prüfen?
Gruß,
Peter
Sub aaTest1()
'Nummernformat bei der Datumseingabe muss stimmen
Dim varTest As Variant
varTest = Format(Date, "DD.MM.YY") 'Vorgabewert für Datum
NameBlatt:
varTest = InputBox("Bitte Datum als Blattname eingeben (Format: TT.MM.JJ", "Blattame eingeben" _
, varTest)
If varTest = "" Then
'Abbrechen wurde gewählt
ElseIf IsDate(varTest) And varTest Like "##.##.##" Then
ActiveSheet.Name = varTest
Else
MsgBox "Eingabe """ & varTest & """ ist eine unzulässige Datumseingabe für den Blattnamen" _
GoTo NameBlatt
End If
End Sub
'oder
Sub aaTest2()
'jeder als Datum interpretierbare Eingabe wird akzeptiert
Dim varTest As Variant
varTest = Format(Date, "DD.MM.YY") 'Vorgabewert für Datum
NameBlatt:
varTest = InputBox("Bitte Datum als Blattname eingeben (Format: TT.MM.JJ", "Blattame eingeben" _
, varTest)
If varTest = "" Then
'Abbrechen wurde gewählt
ElseIf IsDate(varTest) Then
varTest = Format(varTest, "DD.MM.YY")
ActiveSheet.Name = varTest
Else
MsgBox "Eingabe """ & varTest & """ ist eine unzulässige Datumseingabe für den Blattnamen" _
GoTo NameBlatt
End If
End Sub