Abhängige ComboBoxen mit zeitlicher Auswertung
03.08.2017 19:19:54
Markus
folgendes Anliegen habe ich an euch:
Ich will für meine Tabelle eine UserForm erstellen, auf der sich 3 ComboBoxen befinden werden. Diese 3 ComboBoxen sind voneinander abhängig. Das Ergebnis mündet dann in eine ListBox.
Mein Tabellenblatt sieht folgendermaßen aus:
Spalte A: Datum
Spalte B: Verkäufer
Spalte C: Projektname
Spalte D: Anzahl der verkauften Einheiten
Spalte E: Umsatz
Nun will ich, dass man mittels ComboBox1 den Verkäufer auswählt.
Die ComboBoxen 2 und 3 sollen den Zeitraum begrenzen, welcher betrachtet wird. Sprich, in ComboBox2 steht das Startdatum und in ComboBox3 das Enddatum. Die ListBox soll sich dann anhand der getroffenen Auswahl in den ComboBoxen 1-3 zusammenstellen.
ListBox Column 1: Name des Verkäufers
ListBox Column 2: Projektname
ListBox Column 3: Anzahl der verkauften Einheiten
ListBox Column 4: Umsatz
Mein Problem ist, dass ich es nicht schaffe, die ComboBox1 mit den ComboBoxen 2 und 3 zu verbinden. Folgenden Code verwende ich bisher (Danke nochmal an ChrisL dafür!):
Private Sub ComboBox2_Change()
Call LbLaden
End Sub
Private Sub ComboBox3_Change()
Call LbLaden
End Sub
Private Sub UserForm_Initialize()
Dim iZeile As Long
bLoad = True
With Worksheets("Tabelle1")
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem .Cells(iZeile, 1)
ComboBox2.AddItem .Cells(iZeile, 1)
Next iZeile
End With
ComboBox2.ListIndex = 0
ComboBox3.ListIndex = ComboBox3.ListCount - 1
ListBox1.ColumnCount = 4
bLoad = False
Call LbLaden
End Sub
Private Sub LbLaden()
Dim iZeile As Long
Dim iCounter As Long
Dim arList() As Variant
If bLoad Then Exit Sub
With Worksheets("Tabelle1")
ListBox1.Clear
If CDate(ComboBox2) > CDate(ComboBox3) Then
MsgBox "Start darf nicht grösser Ende sein"
Exit Sub
End If
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(iZeile, 1) >= CDate(ComboBox2) And .Cells(iZeile, 1) Besten Dank für eure Hilfe!