Zeilen überspringen und Makro wiederholen
08.07.2004 16:20:01
Björn
ich habe eine riesen Tabelle zu ändern und hoffe das mit einem Makro erledigen zu können.
Dazu brauche ich eure Hilfe.
Ich habe einen Wert in E14 der in E15 verschoben werden soll. So dass sich alle Bezüge die sich auf diese Zelle beziehen auch verschieben. Der in E14 stehende Wert soll aber auch in E14 stehen bleiben.
Danach soll in E15 die Formel eingefügt werden: "=IF(R[-1]C0,R[-1]C,1)"
Die Schriftfarbe von E15 soll weiss werden.
Danach soll das ganze vier Zeilen tiefer wieder gemacht werden. (d.h. E18/E19)
usw. bis der Makierte Bereich durchlaufen ist.
Bis jetzt habe ich folgendes zusammenbekommen:
Sub Macro1()
Range("E14").Cut Destination:=Range("E15")
Range("E15").Copy Destination:=Range("E14")
Range("E15").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C<>0,R[-1]C,1)"
Range("E15").Select
Selection.Font.ColorIndex = 2
End Sub
Vielen Dank für eure Hilfe.
Mit freundlichem Gruß
Björn