AW: Datum von bis in Listbox
17.12.2011 10:05:14
bis
Guten Morgen Hajo,
Ich habe folgenden Versuch gestartet, der auch funktioniert. Allerdings werden alle Datumseingaben angezeigt und ich kann dann jeweils ein Datum.z.B. 04.04.2008 in Listbox einlesen. Mir würde es aber sehr helfen, wenn ich ein Datum von - bis eingeben könnte. Es kann auch vorkommen, dass 04.04.2008 etwa 10 mal untereinander steht, dann werden diese Daten schon eingelesen. aber nicht 04.04.2008 bis 10.10.2009.
Weißt Du was ?
Gruß Ingo
Private Sub ComboBox1_Change() 'Datum
Dim K As Long
Dim N As Long
Dim Suche As String
Dim Btrgsoll As Double
Suche = ComboBox1.List(ComboBox1.ListIndex, 0)
With Worksheets("Tabelle2")
ListBox1.Clear
For K = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Suche = .Cells(K, 1).Value Then
ListBox1.AddItem
N = ListBox1.ListCount - 1
ListBox1.List(N, 0) = .Cells(K, 1).Value
ListBox1.List(N, 1) = .Cells(K, 2).Value
ListBox1.List(N, 2) = .Cells(K, 3).Value
ListBox1.List(N, 3) = .Cells(K, 4).Value
ListBox1.List(N, 4) = .Cells(K, 5).Value
ListBox1.List(N, 5) = Format(.Cells(K, 6).Value, "##0.00 ")
ListBox1.List(N, 6) = K
Btrgsoll = Format(Btrgsoll + .Cells(K, 6).Value, "##0.00 ")
End If
Next
TextBox1.Value = Format(Btrgsoll + .Cells(K, 6).Value, "##0.00 ")
End With
End Sub