Zeilen automatisch löschen

[sascha_kote]

Hallo,
ich habe ein Datenblatt mit 2000 Zeilen.
Ich möchte alle Zeilen löschen, bei denen im Feld A nicht GmbH steht.
Ist das irgendwie zu automatisieren?

Danke
Sascha

[Jonas0806]

Hallo Sascha,

ungetestet

Code:

Option Explicit

Sub ZeilenLoeschen()
   Dim i As Long
   
   With Tabelle1
       For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 '2, weil ich von einer Überschrift ausgegangen bin
           If InStr(1, .Cells(i, 1).Value, "GmbH") < 1 Then .Rows(i).Delete
       Next i
   End With
End Sub