Problem mit Combobox
Sophie
stehe vor einem Problem, wegen 2er Comboboxen.
Wenn ich eine Combobox habe u dort eine Auswahl treffe, dann kopiert mir mein Makro die Ergebnisse in ein extra Tabellensheet.
Nun ist eine weitere Combobox hinzugekommen, u es wird nur die erste ausgeführt. Wie sag ich denn der ersten Combobox, dass sie auf das "Click" der zweiten Combobox warten soll, bis die richtigen Daten gesucht werden?
Private Sub ComboBox1_Click()
LetzteZeile = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Absatz Rohdaten").Range("A2:A" & LetzteZeile).AutoFilter Field:=1, Criteria1:=ComboBox1. _
_
Value
If ComboBox1.Value = "Europa" Then
Sheets("Absatz Rohdaten").ShowAllData
lRow = Worksheets("Absatz Rohdaten").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Absatz Rohdaten").Range("A4:T" & lRow).Copy Destination:=Worksheets("Ergebnisse" _
_
). _
Range("A4")
Else
Dim count_Ausgabe As Integer
count_Ausgabe = Sheets("Ergebnisse").Range("A65536").End(xlUp).Row
Sheets("Ergebnisse").Range("A4:T" + CStr(count_Ausgabe)).Delete
lRow = Worksheets("Absatz Rohdaten").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Absatz Rohdaten").Range("A4:T" & lRow).Copy Destination:=Worksheets("Ergebnisse"). _
_
_
Range("A4")
Sheets("Absatz Rohdaten").ShowAllData
End If
End Sub
Vielen Dank schonmal
Anzeige