Zeilen einfügen
15.12.2003 12:10:20
Martin E.
Sub ZeilenEinfügen()
Dim i As Integer
For i = 1 To 500
If Range("A" & i).Value = "Werk" Then
Range("a" & i).EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Offset(2, 0).Select
End If
Next i
On Error Resume Next
End Sub
Das Wort Werk kommt ca. in jeder 8. Zeile vor. Excel fügt aber alle Zeilen vor der ersten Zeile mit dem Wort Werk ein und schiebt den Rest bis zur Zeile 500. Der Offset-Befehl funktioniert nicht, weil ja mit "next i" er wieder aufgehoben wird. Aber wie geht es sonst, daß er das i durch das Hinunterschieben um den Wert 1 (oder 2) erhöht?
Danke.
Martin