Lösche Zeile wenn gefunden mit zusätzl. Variabel
27.04.2004 20:37:44
Achim
Mein Problem: Ich habe ein Makro das nach 73/und Rest dahinter Variabel suchen
soll und danach die Zeile löschen soll.zB.
73/8/1/5 oder 73/1/1/5 usw.
Leider klappt das nicht. Nun mein Makro:
' Alle Zeilen mit 73.....löschen
Range("A1").Select
Range(Selection, Selection.End(xlDown) ).Select
Selection.Name = "Bereich"
For i = 1 To Range("Bereich") .Cells.Count
wert = Range("Bereich").Cells(i)
If Mid$(wert, 1, 2) = "73/" And i (größer) 1 Then
Rows(i).Select
Selection.Delete
End if
Next i
End Sub
Was mache ich falsch???
Danke schon mal für das Interesse und eventuell Hilfe.
Gruß Achim