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 If
i = i + 1
Loop
End Sub
Bei Fragen oder Problemen meld dich einfach nochmal.
Gruß Mr. K.
|