title image


Smiley Re: Datum über ComboBox abfragen
Hallo Thomas!



probier mal folgendes aus:



Private Sub UserForm_Initialize()

With ComboBox1

For x = 1 To 12

.AddItem Format(CDate("1." & x), "MMMM")

Next

End With

End Sub



Private Sub ComboBox1_Change()

Dim r_Datumsliste As Range

Set r_Datumsliste = Worksheets("Tabelle1").Range("D2:d1000")

With ListBox1

.Clear

For x = 1 To r_Datumsliste.Rows.Count

If Month(r_Datumsliste.Cells(x)) = ComboBox1.ListIndex + 1 Then

.AddItem r_Datumsliste.Cells(x)

End If

Next

End With

End Sub



Viel Erfolg

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: