Hallo zusammen,
ist es möglich, per vba den Autofilter als Schleife durchlaufen zu lassen?
Ich filter in Spalte A nach festen Kriterien, die nicht immer vorkommen müssen.
Zudem will ich in der Lage sein, die Kriterien jederzeit zu ändern oder zu ergänzen.
Hier ein Auszug der Kriterien:
AAA
AAAA
AAAAA
AAAAAA
999
9999
99999
999999
CASCH
CASCHKA
CASH_KA
CASCH_KA
Ist es möglich, die Kriterien nacheinader an den Autofilter zu überbegen,
ohne jedesmal sowas zu schreiben?
Selection.AutoFilter Field:=5, Criteria1:="999999"
If CStr(Range("b1")) = 1 Then
GoTo ERROR
End If
Range("E3:E" + Kred1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Range([A6], [A1].End(xlDown).End(xlToRight)).Select
Selection.Copy
Sheets("Fehler " + Value).Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Abholaufträge-mit-Eingaben500-d").Select
Vielen Dank
Andreas