Tabelle mit ca. 2500 Zeilen.
Nun möchte ich durch ein Makro alle Zeilen automatisch ausblenden, bei denen in Spalte A entweder "Verkauf" oder "Einkauf" steht.
Beginn ist in Zeile 3
Wer hat ne Lösung?
Gruß und danke vorab
Tim
Sub test()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range(Cells(3, 1), Cells(Rows.Count, 1).End(xlUp)).Cells
Select Case c.Value
Case "Hund", "Katze", "Maus"
c.EntireRow.Hidden = True
Case Else
c.EntireRow.Hidden = False
End Select
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen