Hallo Erik,
Und dann? Was soll danach passieren, nachdem die Zeile eingefügt ist und die Werte angepasst wurden? soll dann die neue Zeile 4 die vorher Zeile 3 war und immer noch zu Zeile 2 passt mit Zeile 5 verglichen werden? Ich gehe mal davon aus.
Probier mal entsprechend diesen simplen Code:
Sub
Teilen()
i = 3
Do
While
Cells(i, 1) <>
""
If
Cells(i, 1) = Cells(i - 1, 1)
And
Cells(i, 2) = Cells(i - 1, 2)
Then
Cells(i, 1).EntireRow.Insert
Cells(i, 4) = Cells(i - 1, 5) + 5
Cells(i, 5) = Cells(i + 1, 4) - 5
End
i = i + 1
Loop
Bei Fragen oder Problemen meld dich einfach nochmal.
Gruß Mr. K.
Bitte geben Sie ein aussagekräftiges Thema an. Bitte geben Sie eine gültige Email Adresse ein!