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?