zeile einfügen
07.11.2006 13:05:41
werner
ich benötige euer Hilfe - stehe gerade auf dem Schlauch: der folgende code soll unmittelbar über den zellen, in denen "g" ersetzt wurde, eine zeile einfügen - er fügt sie aber immer in der ganz oben ein - was mache ich falsch?
viele Grüße und danke
werner
Sub Test()
Dim i As Integer
Dim rng
For i = 2 To 14 Step 2
rng = Cells(Rows.Count, ActiveCell.Row).End(xlUp).Row
Cells(1, i).Select
Range(Cells(3, i), Cells(rng, i)).Replace what:="G", Replacement:=913
ActiveCell.EntireRow.Insert
Next i
End Sub