InputBox oder Select Case
10.05.2009 17:41:07
BerndM
ich habe nachstehenden Code, der an sich funktioniert, nur leider keine Prüfung vornimmt, ob die Eingabe korrekt erfolgt ist. Wie BITTE muss der Code ergänzt werden, um dies zu gewährleisten?
Vielen Dank vorab f.d. Hilfe.
Die Datei https://www.herber.de/bbs/user/61719.xls wurde aus Datenschutzgründen gelöscht
Sub zu_planendes_GJ_eingeben()
'If Sheets("Planungszeitraum").Range("B4") = "" Then
Sheets("Planungszeitraum").Range("B4") = InputBox("Bitte Planungszeitraum in nachstehendem _
Format angeben: " & vbLf _
& vbLf & _
"GJ2009" & vbLf & _
"GJ2010" & vbLf & _
"GJ2011" & vbLf & _
"GJ2012" & vbLf & _
"GJ2013")
End Sub
Grüße
BerndM