Ich habe folgendes Problem. Mittels einem InputBox füge ich beliebige Anzahl Zeilen in einer Tabelle ein. Das funktioniert ohne weiteres. Nun habe ich ein Problem, dass die Inhalte mit Formeln versehenen Zeile nicht mit kopiert werden.
Hier der Code.
Sub Makro1()
Dim Zeilen As Variant
Zeilen = InputBox("Anzahl der Zeilen:")
If Zeilen = "" Then Exit Sub
Rows(1).EntireRow.Copy
Rows(ActiveCell.Row & ":" & ActiveCell.Row + Zeilen - 1).Insert
Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.Row + Zeilen - 1, ActiveCell.Column)) _
.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
Vielen dank für die Hilfe.
Mit Gruss, René