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