Zeilen mit Kriterium löschen
13.07.2021 13:18:11
Andreas
in einer Datei mit mehreren Tabellenblättern und grundsätzlich gleichem Aufbau aber unterschiedlich vielen Zeilen (in intelligenten Tabellen)
nutze ich folgendes Makro, um in den jeweiligen intelligenten Tabellen Zeilen mit dem Inhalt "leer" auszublenden:
Sub Ausblenden()
Dim wksTab As Worksheet
For Each wksTab In Worksheets
If wksTab.ListObjects.Count > 0 Then
wksTab.ListObjects(1).Range.AutoFilter Field:=6, _
Criteria1:="*leer*"
End If
Next wksTab
End Sub
Schon mal vielen Dank für eure Hilfe.
Viele Grüße
Andreas
