Inhalt suchen Zeile u. darüber löschen
21.10.2005 12:50:06
achim
Wer kann dieses Makro so verändern so das es auch funzt?
Ausgangslage: in der Spalte A ab A5:A 200 habe ich ich folgende Einträge
343/3/1/1 oder 343/5/1/25. Nun möchte ich das, dass Makro nach dem gemeinsamen Inhalt und zwar / sucht und wenn gefunden diese Zeile und gleichzeitig die darüber löscht.
Sub InhaltFindenZeileundDarüberlöschen()
Sheets("KopieTabAusPerdis").Activate
Range("A1").Select
Dim i As Long, Berich As Object
With Sheets("KopieTabAusPerdis")
Set Bereich = .Range("A5:A" & .[A:A].Find("*", searchdirection:=xlPrevious).Row)
For Each Zelle In Bereich
Debug.Print Zelle.Value
If Zelle.Value Like "/*" Then
Rows.Delete Shift:=xlUp
End If
Next Zelle
End With
Für jede Hilfe dankbar
Gruß
achim h.
End Sub