bestimmte Zeilen verändern
31.08.2004 16:59:16
Fabienne
Mein Makro soll in jeder Zeile wo "Manufacturer= " steht "*Manufacturer= " schreiben. Und bei den Wörtern in den 40 darauffolgenden Zeilen soll ebenfalls ein * vorangestellt werden.
Kann mir jemand helfen den Code anzupassen? Danke!!
Sub Sterne_einfügen()
Dim l As Integer
For l = 1 To Range("A1000").End(xlUp).Row
If Range("A" & l).Value = "Manufacturer=" Then ActiveCell.FormulaR1C1 = "*Manufacturer="
Next l
End Sub
Anzeige