Zeilen löschen
07.12.2006 10:25:47
DieterG.
bei meinen Recherchen habe ich folgendes Makro gefunden.
Sämtliche Zeilen in denen ein "G" vorkommt werden gelöscht.
Was muss noch eingebaut werden, damit nur dann Zeilen gelöscht werden, wenn in Spalte C ein "G" vorkommt?
Danke für die Hilfe
Gruss Dieter
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
Anzeige