Filtern anfangen, wenn Kriterium nicht vorhanden
14.07.2013 18:53:09
Markus
ich bin wieder an einen Punkt, an dem ich alleine nicht weiterkomme.
Anbei ein Makro zum Filtern von 3 Spalten, die nacheinander abgearbeitet werden, wobei die Ergebnis des jeweiligen Filterkriteriums gelöscht werden. Sofern in jeder Spalte das jeweilge Filterkriterium gefunden wird, kein Problem, ist dies allerdings nicht enthalten, löscht er den kompletten Filterbereich und es bleiben nur noch die Überschriften übrig. Wie fange ich für jede zu filternde Spalte diesen Vorgang ab. Sprich wenn Filterkriterium nicht vorhanden, dann nichts machen und weiter zur nächsten zu filternden Spalte.
Vielen Dank schon einmal
Fruß Markus
Sub Filter()
Selection.AutoFilter Field:=1, Criteria1:="="
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete shift:= _
xlUp
End With
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=2, Criteria1:="=*S*"
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete shift:= _
xlUp
End With
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=3, Criteria1:="="
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete shift:= _
xlUp
End With
ActiveSheet.ShowAllData
End Sub