Datum in richtigem Format

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Datum in richtigem Format
von: Roger
Geschrieben am: 23.02.2005 12:07:20
Hallo zusammen
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
Bild

Betrifft: textbox1 = format(date,"DD.MM.YYYY")
von: IngoG
Geschrieben am: 23.02.2005 12:20:14
Hallo Roger,
sollte so funzen...
Ps es kann mW problematisch werden, wenn Du die Dim-Anweisungen nicht direkt am anfang stehen hast, Du solltest also erst die Variablen definieren und dann loslegen.
Gruß Ingo
Bild

Betrifft: Super! Danke!
von: Roger
Geschrieben am: 23.02.2005 12:24:51
Hi Ingo
Danke klappt wunderbar. Hab das ganze mal nach End With eingesetzt. Das Datum wird jetzt richtig angezeigt. Vielen Dank.
Gruss Roger
Bild

Betrifft: Danke für die Rückmeldung oT
von: ingoG
Geschrieben am: 23.02.2005 12:29:55
.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datum in richtigem Format"