Leerzeilen einfügen wenn....
21.03.2003 15:28:40
Rainer
ich möchte immer nach 15 zeilen eine Leerzeile einfügen , was mir soweit auch schon gelungen ist:
For i = 1 To 50000
i = i + 15
Range("A" & i).Select
Selection.EntireRow.Insert
Next i
Jetzt muß ich dies aber noch an 2 Bedingungen knüpfen und dass ist mir als VBA newbie unmöglich.
So sieht die Excel Datei aus:
sal MPG
281 1N
281 1N
281 1N
281 1S
281 1S
281 1S
281 1S
281 1S
281 1S
281 1S
281 1S
281 1S
287 1N
287 1N
287 1N
287 1S
287 1S
287 1S
Es soll nun immer eine Leerzeile eingefügt werden wenn sich die sales oder die MPG ändert.
Kann mir da jemand weiterhelfen??
Im voraus besten Dank für die Hilfe
Gruß
Rainer