Supportnet / Forum / Tabellenkalkulation
excel makro
Frage
Dim i As Integer
For i = 2 To 5000
Rows(i, i).FormulaR1C1 = "=IF(cells(i,7)=cells(i+1,7),Rows(i,i),Rows(1:1).Insert Shift:=xlDown,)"
Next
das ist was ich machen moechte. aber es geht nicht. ich moechte wenn Cells(i,7) nicht cells(i+1,7) gleich ist, ein neues row hinzufuegen.
Antwort 1 von Guenter
Hallo,
mir ist leider nicht so ganz klar, was Du machen willst.
Hier habe ich einen Ecxel-Code, der fügt eine Reihe ein, wenn cells(i,7) und cells(i+1,7) ungleich sind.
Melde Dich nochmal, wenn das alles falsch ist.
Gruß
Günter
mir ist leider nicht so ganz klar, was Du machen willst.
Hier habe ich einen Ecxel-Code, der fügt eine Reihe ein, wenn cells(i,7) und cells(i+1,7) ungleich sind.
Sub test2()
Dim i%
For i = 2 To 5000
If Cells(i, 7) <> Cells(i + 1, 7) Then
Rows(i).Insert Shift:=xlDown
i = i + 1
End If
Next
End Sub
Melde Dich nochmal, wenn das alles falsch ist.
Gruß
Günter