Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Combobox - aktuelles Datum

Combobox - aktuelles Datum
04.07.2003 11:00:10
Volker M
Hallo Forum
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox - aktuelles Datum
04.07.2003 14:49:44
L.Vira
Dim intCounter As Integer
For intCounter = 1 To 367
cboListe31.AddItem Sheets("Dienstplan").Cells(intCounter, 1)
Next intCounter
cboListe31.ListIndex = CLng(Date - DateSerial(Year(Date), 1, 1))

AW: Combobox - aktuelles Datum
04.07.2003 15:29:52
Volker M.
Hallo L.Vira
Das ist es, was ich gesucht habe.
Es funktioniert super.
Herzlichen Dank.
Gruß Volker

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige