heutiges Datum
17.11.2006 11:39:39
achille
hätte eine bitte, kann mir jemand zeigen wie ich eine Combobox dazu bringe mir automatisch das heutige Datum anzuzeigen.
Wäre sehr nett
Danke im Voraus
Gruß
Achille
Private Sub UserForm_Initialize()
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A65536].End(xlUp).Row
ComboBox1.AddItem "Datum"
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)