24.05.2019, 12:33
Hallo zusammen,
ich habe in den Zellen A2-AP2 Filter gesetzt und möchte diese gerne per Makro bearbeiten. Die Filter befinden sich in Tabelle 1, der zugehörige Butten zum zurücksetzen in Tabelle 2.
Der Filter in Zelle A2 muss zurück gesetzt werden (alle Werte anzeigen) und anschließend neu gesetzt werden wobei werte ungleich leer ausgeblendet werden sollen.
Mein Ansatz soweit
Sub Wertübertrag3()
Dim Liste As Range
Set Liste = Sheets("Unternehmenskennzahlen statisch").Range("A2:AP650")
Liste.AutoFilter Field:=1
Liste.AutoFilter
Liste.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlFilterValues
End Sub
Diese hier funktioniert leider nur wenn die Filter in der ersten Zeile stehen, nicht jedoch wenn ich die Filter in Zeile 2 habe, kann mir jemand helfen? Wie mache ich ihm klar, dass die Filter in Zeile 2 sind?
ich habe in den Zellen A2-AP2 Filter gesetzt und möchte diese gerne per Makro bearbeiten. Die Filter befinden sich in Tabelle 1, der zugehörige Butten zum zurücksetzen in Tabelle 2.
Der Filter in Zelle A2 muss zurück gesetzt werden (alle Werte anzeigen) und anschließend neu gesetzt werden wobei werte ungleich leer ausgeblendet werden sollen.
Mein Ansatz soweit
Sub Wertübertrag3()
Dim Liste As Range
Set Liste = Sheets("Unternehmenskennzahlen statisch").Range("A2:AP650")
Liste.AutoFilter Field:=1
Liste.AutoFilter
Liste.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlFilterValues
End Sub
Diese hier funktioniert leider nur wenn die Filter in der ersten Zeile stehen, nicht jedoch wenn ich die Filter in Zeile 2 habe, kann mir jemand helfen? Wie mache ich ihm klar, dass die Filter in Zeile 2 sind?