title image


Smiley Re: Datum über ComboBox abfragen
Hallo Thomas!



ich hoffe, ich habe jetzt verstanden, was Du vorhast.

Probier mal folgendes aus:



Private Sub UserForm_Initialize()

Set r_Daten = Worksheets("Tabelle1").Range("a2:f1000")

With ComboBox1

For x = 1 To 12

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

Next

End With

End Sub



Private Sub ComboBox1_Change()

Stop

Dim datensatz()

Me.Caption = "Monat:" & ComboBox1

With ListBox1

.ColumnCount = r_Daten.Columns.Count

.Clear

For x = 1 To r_Daten.Rows.Count

If Month(r_Daten.Cells(x, 4)) = ComboBox1.ListIndex + 1 Then

ListBox1.AddItem r_Daten.Cells(x, 1)

For y = 2 To r_Daten.Columns.Count

ListBox1.Column(y - 1, zeile) = r_Daten.Cells(x, y)

Next

zeile = zeile + 1

End If

Next

End With

End Sub



Hiermit wird in der Listbox die gesamte Liste mit all ihren Spalten abgebildet, allerdings nur mit den Datumswerten entsprechend der Eintragung in der Combobox.



Gruß

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: