ich habe folgendes Problem.
Ich will in einer Tabelle an einer beliebigen Stelle Zeilen einfügen. Dies mache ich über eine Inputbox
Sub Makro1()
Dim Zeilen As Variant
Zeilen = InputBox("Anzahl der Zeilen:")
If Zeilen = "" Then Exit Sub
Rows(ActiveCell.Row & ":" & ActiveCell.Row + Zeilen - 1).Insert
End Sub
Das klappt auch. Jetzt will ich aus Zeile 1 die Formeln in diese neuen Zeilen kopieren. Die Formeln sollen sich aber relativ an die neuen Zeilennummern anpassen. Wie muss ich da meinen Code erweitern?
Danke