Herbers Excel-Forum - das Archiv

Datum in richtigem Format

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
Excel-Beispiele zum Thema "Datum in richtigem Format"
Datumsformatkonvertierung (von Heinrich Stuerzl) Eingabeerleichterung bei Zeitformaten
Verhinderung der Formatumwandlung durch Excel Export von Diagrammen im Grafikformat
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Formatvorlagen löschen Spalten bedingt summieren und Zellen formatieren
Zählen formatierter Zellen Mehrfachauswahl im Hoch- und Querformat drucken