Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
ComboBox mit Monat und Jahr füllen
17.11.2004 10:16:24
Wolfgang
In Spalte A stehen fortlaufende Datumsangaben. Verzweifelt versuche ich die ComboBox automatisch mit dem jeweiligen Monat und das Jahr zu füllen.
z.B. November 04
Dies soll möglich sein mit DatePart("m",Range("A1").Value) bzw. "y"
Leider reichen meine minimalen VBA-Kenntnisse nicht aus dies umzusetzen. Mein Makro liefert nicht mal den Monat.
Danke
Wolfgang
Sub Fuellen()
Dim lngx As Long
ComboBox1.Clear
For lngx = 1 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(DatePart("m", Range("A1:A99") & lngx), Cells(lngx, 1).Value) _
= 1 Then
ComboBox1.AddItem Cells(lngx, 1).DatePart("m", lngx).Value
End If
Next
ComboBox1.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
Worksheets("Tabelle1").Activate
Fuellen
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: ComboBox mit Monat und Jahr füllen
Ulf
Sub Fuellen()
Dim lngx As Long
ComboBox1.Clear
For lngx = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Format(Cells(lngx, 1), "mmmm yy")
End If
Next
Ulf
AW: ComboBox mit Monat und Jahr füllen
17.11.2004 13:37:28
Wolfgang
Vielen Dank
Wolfgang
Anzeige

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige