Thema: Zeile löschen, wenn ein bestimmter Wert vorkommt

StandardModule: basMain

Sub DeleteIfG()
   Dim var As Variant
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      var = Application.Match("*g*", Rows(iRow), 0)
      If Not IsError(var) Then
         Rows(iRow).Delete
      End If
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten