Filtern nach mehreren Bedingungen in 1 Zelle
15.06.2020 11:11:55
Daniel
ich habe folgendes kleines Problem, welches ich ohne euch aktuell nicht lösen kann.
In dem folgenden Code wird ein Reiter kopiert. Dieser enthält Daten zur Verarbeitung. Dieser muss kopiert werden, damit die Rohdaten bleiben. In Spalte D wird nach 3 Bereichen (A, B und C) unterschieden. Ich möchte nun in dem Makro mir die Bereiche anzeigen lassen, welche für den weiteren Verlauf gelöscht werden sollen. In Tabelle1 (Sheet1) trage ich dies alles in einer einzigen Zelle (27,3) entsprechend ein. Bsp. B, C d.h. es soll nach B und C gefiltert werden. Vllt. habe ich den falschen Ansatz, da meine VBA-Kenntnisse nur das Basiswissen beinhalten. Bei dem Code wird in dem Beispiel nur nach C gefiltert und nicht nach B und C. Wo liegt der Fehler?
Das Deklarieren mache ich bereits vorher mit dem Befehl Public vardat as variant
Viele Grüße und Danke vorab.
Sub PrepareSheet()
Application.DisplayAlerts = False
Worksheets("Plan").Delete
Application.DisplayAlerts = True
Worksheets("Daten").Copy After:=Worksheets("Daten")
ActiveSheet.Name = "Plan"
Set tp = Worksheets("Plan")
Vardat = Split(Sheet1.Cells(27, 3).Value, ",")
tp.Range("A1:AK1000").AutoFilter Field:=4, Criteria1:=Array(Vardat)
Application.DisplayAlerts = False
EndRow = tp.Cells(tp.Rows.Count, 35).End(xlUp).Row
tp.Range(Cells(2, 1), Cells(EndRow, 38)).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
ResetAutoFilter
End Sub