|
Hallo !
Ich hätte eine Frage. Diese habe ich bereits vorige Woche im Herber-Forum gestellt, jedoch keine Antwort, die ich selber machen kann, bekommen. Ich scheine dafür einfach in Excel bzw. VBA nicht der richtige zu sein.
Zu meiner Frage:
Was muß ich in u.a. Code der für die Userform ist, ändern, damit weiterhin das Datum vorbelegt ist, jedoch bei Eintrag eines neuen Datums mit keinen Punkten (z.B.Eintrag 14062023 erscheint dann das Datum mit Punkten..........also 14.06.2023) dieses mit Punkten eingetragen wird,
Danke für Eure Hilfe
chris58
HIER DER UF-Code:
Private Sub txt_Datum1_AfterUpdate()
If IsDate(txt_Datum1.Value) Then
lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value) + 1
Else
MsgBox "Kein Datum"
txt_Datum1.Value = Date
End If
With txt_Datum1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub txt_Datum2_AfterUpdate()
If IsDate(txt_Datum2.Value) Then
lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value)
Else
MsgBox "Kein Datum"
txt_Datum2.Value = Date
End If
End Sub
Private Sub UserForm_Initialize()
txt_Datum1.Value = Date
txt_Datum2.Value = Date
lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value)
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
|