Combobox leer = alles anzeigen

Private Sub ComboBox2_Change() LetzteZeile = Range("A" & Rows.Count).End(xlUp).Row Sheets("Absatz Rohdaten").Range("A2:A" & LetzteZeile).AutoFilter Field:=11, Criteria1:= _ ComboBox2.Value Sheets("Absatz Rohdaten").Range("A2:A" & LetzteZeile).AutoFilter Field:=1, Criteria1:=ComboBox1. _ _ Value If ComboBox2.Value = "leer" 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

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Halo Sophie,
du hast beim Setzen der Filter den Bereich nur auf Spalte A gelegt:
Sheets("Absatz Rohdaten").Range("A2:A" & LetzteZeile).AutoFilter ....
A2:A muss du in A2:T ändern, mindestens in A2:K, so dass der Filter auf Spalte 11 gesetzt werden kann.
Außerdem sollte geprüft werden ob ein Filter gesetzt ist, wenn das Makro startet.
Gruß
Franz

Private Sub ComboBox2_Change()
Dim count_Ausgabe As Long, lRow As Long, LetzteZeile As Long
Sheets("Absatz Rohdaten").Activate
'Prüfen, ob Filter gesetzt
With Sheets("Absatz Rohdaten")
If .AutoFilterMode = True Then
If .FilterMode = True Then .ShowAllData
End If
End With
LetzteZeile = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Absatz Rohdaten").Range("A2:T" & LetzteZeile).AutoFilter _
Field:=11, Criteria1:=ComboBox2.Value
Sheets("Absatz Rohdaten").Range("A2:T" & LetzteZeile).AutoFilter _
Field:=1, Criteria1:=ComboBox1.Value
If ComboBox2.Value = "leer" 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
count_Ausgabe = Sheets("Ergebnisse").Range("A65536").End(xlUp).Row
If count_Ausgabe >= 4 Then
Sheets("Ergebnisse").Range("A4:T" + CStr(count_Ausgabe)).Delete
End If
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

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox leer = alles anzeigen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread