Combobox - aktuelles Datum
04.07.2003 11:00:10
Volker M
Mit folgendem Code fülle ich u.a. eine Combobox mit einem Datum, welches sich auf dem Tabellenblatt "Dienstplan" in Spalte A befindet. In Abhängigkeit der Combobox werden mehrere Textboxen befüllt. Ist es möglich beim Füllen der Combobox automatisch die Zelle mit dem aktuellen Datum auszuwählen, damit beim Öffnen der UserForm in der Combobox immer das heutige Datum erscheint? Wenn ja; wie müsste der Code geändert werden?
Private Sub UserForm_Initialize()
Dim arrFill As Variant
arrFill = Sheets("Dienstplan").[a35:e66]
ListBox7.List() = arrFill
arrFill = Sheets("Dienstplan").[a68:e99]
ListBox8.List() = arrFill
arrFill = Sheets("Dienstplan").[a101:e131]
ListBox9.List() = arrFill
arrFill = Sheets("Dienstplan").[a133:e164]
ListBox10.List() = arrFill
arrFill = Sheets("Dienstplan").[a166:e196]
ListBox11.List() = arrFill
arrFill = Sheets("Dienstplan").[a198:e229]
ListBox12.List() = arrFill
Dim intCounter As Integer
For intCounter = 1 To 367
cboListe31.AddItem Sheets("Dienstplan").Cells(intCounter, 1)
Next intCounter
cboListe31.ListIndex = 0
End Sub
Vielen Dank im Voraus
Gruß Volker