Datum automatisch übernehmen
18.08.2021 08:28:55
LPO
ich habe eine Excel Tabelle wo das ganze Datum von diesem Jahr eingetragen ist. Durch eine Userform kann ich ein beliebes Datum in einem Textbox schreiben, mit mehreren Textbox & Combobox sachen eintragen und die Zeile für das ausgewählte Datum somit weiter automatisch ausfüllen lassen. Soweit so gut.
Ist es möglich, das wenn ich die Userform öffne, in dem Textbox wo ich mein Datum immer eintrage, schon das heutige Datum da drauf steht ohne es nochmal eintippen zu müssen? Es soll sozusagen der heutige Datum vorgeschrieben sein und auf bedarf geändert werden können (wenn ich zb noch was für gestern nachtragen kann)
Bis jetzt habe ich nur:
Private Sub Datum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.Datum = CDate(Me.Datum)
End Sub
Private Sub Eingabe_Click()
Dim i As Integer
Dim ifound As Integer
Dim Tabellenname As String
Tabellenname = ActiveSheet.Name
i = 4
'Schleife zur Zeilenbestimmung
Do
If CStr(Sheets(Tabellenname).Cells(i, 2).Value) = Me.Datum.Value Then
ifound = i
End If
i = i + 1
Loop Until Sheets(Tabellenname).Cells(i, 2) = "" Or ifound 0
es folgen dann die Anweisungen für die genannten Textbox und Combobox
Gruß
