Vorab wünsche ich allen ein frohes Osterfest!
Nun zu meinem Problem:
Im Tabellenblatt Daten ab Zeile 4 Spalte 1 steht immer ein Datum, das Datum beginnt am 01.01.2014. Nun möchte ich gern in einer ListBox immer einen kompletten Monat anzeigen.
Der Monatserste ist in TextBox 1 und der Monatsletzte in TextBox2.
Folgenden Code wollte ich verwenden, aber meine ListBox bleibt leer.
With frmMonatsanzeige
.ListBox1.Clear
Dim Daten(14, 15)
For lng = 4 To 6577
For Z = 0 To 15
If Sheets("Daten").Cells(lng, 1) = CDate(.TextBox1) And Sheets("Daten").Cells(lng, 1) = CDate(TextBox2) Then
Daten(Z, 0) = Sheets("Daten").Cells(lng, 1)
Daten(Z, 1) = Sheets("Daten").Cells(lng, 2)
Daten(Z, 2) = Sheets("Daten").Cells(lng, 3)
Daten(Z, 3) = Sheets("Daten").Cells(lng, 4)
Daten(Z, 4) = Sheets("Daten").Cells(lng, 5)
Daten(Z, 5) = Sheets("Daten").Cells(lng, 6)
Daten(Z, 6) = Sheets("Daten").Cells(lng, 7)
Daten(Z, 7) = Sheets("Daten").Cells(lng, 8)
Daten(Z, 8) = Sheets("Daten").Cells(lng, 9)
Daten(Z, 9) = Sheets("Daten").Cells(lng, 10)
Daten(Z, 10) = Sheets("Daten").Cells(lng, 11)
Daten(Z, 11) = Sheets("Daten").Cells(lng, 12)
Daten(Z, 12) = Sheets("Daten").Cells(lng, 13)
Daten(Z, 13) = Sheets("Daten").Cells(lng, 14)
Daten(Z, 14) = Sheets("Daten").Cells(lng, 15)
End If
Next Z
Next lng
.ListBox1.List = Daten
End With
Was ist falsch? Bitte um Hilfe und danke im Voraus!
Gruß Frank H.