ich versuche gerade vergeblich eine Autofilterfunktion zu entwerfen.
Aufzeichnungsergebnis
Sub Makro3()
ActiveSheet.Range("$A$2:$A$1573").AutoFilter Field:=1, Criteria1:=Array( _
"12", "28", "29"), Operator:=xlFilterValues
End Sub
Programierversuch
Sub AutoFilterEinstellen()
Dim Filterwerte, Fwert As String
FilterwertKontrolle = 0
Range("R2").Activate
For i = 1 To 1573
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = "X" Then
Fwert = ActiveCell.Offset(0, -17).Value
If FilterwertKontrolle = Fwert Then
Else
Filterwerte = Filterwerte & Fwert & Chr(34) & ", " & Chr(34)
FilterwertKontrolle = Fwert
End If
End If
Next
TextLänge = Len(Filterwerte)
Filterwerte = Left(Filterwerte, TextLänge - 4)
Filterwerte = Chr(34) & Filterwerte & Chr(34) 'zeigt ""12", "28", "29""
Stop
ActiveSheet.Range("$A$2:$A$1573").AutoFilter Field:=1, Criteria1:=Array(Filterwerte), Operator:= _
xlFilterValues
End Sub
Ich mutmaße, das der Hund "12", "28", "29" hier begraben ist, deshalb auch Chr(34)aber egal wie, ich komme zu keinem Ergebnis, es werden immer alle Zeilen ausgeblendet.
Was mache ich Falsch?
Gruß SP