einfügen von *
01.09.2004 10:46:22
*
Kann mir jemand sagen was ich machen müsste um alle Zeilen mit einem Stern zu versehen von "Manufacturer" bis "Other data" kommt, anstelle von "Manufacturer" bis 31 Zeilen weiter?
Gruss
Sub Sterne_einfügen()
Dim l As Integer
Dim l2 As Integer
For l = 1 To Range("A1000").End(xlUp).Row
If Range("A" & l).Value = "Manufacturer=" Then
Range("A" & l) = "*Manufacturer="
For l2 = l + 1 To l + 31
Range("A" & l2).Value = "*" & Range("A" & l2).Value
Next l2
End If
Next l
End Sub