Autofilter mit Werten aus Zellselektion
19.06.2018 12:09:30
René
ich benötige eure Hilfe für ein kleines Makro. Und zwar möchte ich gerne die mehrere Zellen auswählen, welche dann als Parameter für den Autofilter übernommen werden sollen. Auswahl z.B. A1= Haus; A2=Regen; A10=Sturm => Sollen, wenn markiert, vom Filter in einer anderen Spalte übernommen werden.
Er übernimmt aber in meinem folgendem Makro nur den Wert der letzten Zelle.
Sub SetActiveFilter()
Dim Kriterium As String
Kriterium = ActiveCell.Value
With ActiveSheet
If .AutoFilterMode Then
For Each af In .AutoFilter.Filters
If af.On Then
.ShowAllData
Exit For
End If
Next
End If
End With
Selection.AutoFilter Field:=4, Criteria1:=Kriterium
End Sub
Wie muss ich das ganze aufbauen, dass alle selektieren Werte als Parameter übernommen werden?
Anzeige