ich versuche schon den ganzen Tag erfolglos eine Lösung für folgendes Problem zu finden - ich hoffe hier kann mir einer der Spezialisten Rat geben:
Ich habe eine Tabelle, in der in Spalte A einzelne Zellen mit x markiert sind. Ich möchte nun ein Makro bauen, das in der Spalte A nach diesen "x" sucht und in der jeweiligen Zeile eine neue Zeile einfügt (Die Zeile mit dem x wird dabei nach unten verschoben). Diese markierten Zeilen kommen mehrmals in der Spalte A vor. bisher bin ich mit der folgenden Lösung soweit gekommen, daß das erste X gefunden wird, allerdings fügt das Makro unendlich Zeilen ein.....
Sub test()
Dim finden, Zelle As Range
Set finden = Range("A1:A600")
For Each Zelle In finden
If Zelle.Text = "x" Then
Range(Zelle.Row & ":" & Zelle.Row).Insert Shift:=xlDown
End If
Next
End Sub