Geschätztes allwissendes Forum
Ich habe ein Dummbatz Problem, ich muss falls der Name bei der Spalte d nicht gleich der oberen Zeile entspricht 2 Reihen hinzufügen. Nun habe ich einen Code gefunden der dies aber immer bei der Spalte i ausführt. und ich komm nicht weiter weshalb.
Unten der Code
Sub Zeilen_einfuegen()
For i = (ActiveSheet.Range("d65500").End(xlUp).Row - 1) To 2 Step -1
If Cells(d, 9) <> Cells(d - 1, 9) Then
Rows(d).Insert
Rows(d).Insert
End If
Next i
End Sub
danke für die Hilfestellung:) |