Prob. mit Monatseingabe in TextBox
21.12.2003 17:40:05
Benny
ich möchte mittels UserForm den Monat und das Jahr in eine Tabelle eintragen.
Als Tagesdatum soll immer 01 erscheinen. Soweit Ok, das klapptt.
Das Eingabeformat beträgt max 4 Zahlen (MMJJ).
Wie kann ich es nun aber anstellen, das nur Zahlen zwischen 1-12 für den Monat und Jahreszahl ab 03 (für 2003) akzeptiert werden?
Kann jemand weiterhelfen, oder den Code meines Bruder entsprechend modifizieren (bin leider noch VBA-Laie)?
Private Sub DispoMonat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9]" Then Call DatumErlaubt: KeyAscii = 0
End Sub
Private Sub DispoMonat_AfterUpdate()
DispoMonat.Value = Format(DispoMonat.Value, "01\.#0\.00")
End Sub
Private Sub DispoMonat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If DispoMonat > 0 Then Exit Sub
If DispoMonat = 0 Then FehltWas: DispoMonat = " "
Cancel = True
End Sub
Private Sub CommandButton1_Click()
With ANGABEN_MONAT
If .DispoMonat.Value = "" Or DispoMonat.Value = 0 Then Call FehltWas: .DispoMonat.SetFocus: Exit Sub
DispoMonat = Format(DispoMonat, "01\.#0\.00")
Worksheets("DISPO").Cells(47, 4).Value = CDate(DispoMonat.Value)
End With
Unload Me
Call Daten_Übernommen
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Vielen Dank vorab!
Gruss Benny
Anzeige