Ich will in einem Userform in der Textbox das aktuelle Datum erscheinen lassen. soweit klappt das, nur dass das Datum als 02/23/2005 erscheint anstatt als 23.02.2005. Was mache ich da falsch? Muss ich allenfalls die Textbox irgendwie anders formatieten? Ich benutze dazu folgenden Code:
Private Sub UserForm_Initialize()
TextBox1 = Date
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Set frm = UserForm1
Sheets("Kontonr").Activate
With frm.ComboBox1
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 To iMax
.AddItem Worksheets("Kontonr").Cells(i, 1)
Next i
End With
With frm.ComboBox2
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 To iMax
.AddItem Worksheets("Kontonr").Cells(i, 1)
Next i
End With
Sheets("Buchungen").Activate
End Sub
Besten Dank für eure Hilfe
Gruss Roger