AW: Eingabeformat von Blattnamen prüfen
02.05.2014 07:03:14
Blattnamen
Hallo Peter,
du hast 2 Möglichkeiten.
1. Datum und Schreibweise müssen bei der Eingabe passen.
2. Eingabe muss als Datum interpretiert werden können. Das Makro formatiert die Eingabe in die gewünschte Form.
Gruß
Franz
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