Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
Dim NewFilSpa as Single
NewFilSpa = Cells(2, Columns.Count).End(xlToLeft).Column - 5
Ich möchte nun irgenwie das machen:
ActiveCell.Offset(Zähler, 0).Range("A1:NewFilSpa").Insert Shift:=xlDown
Ich hoffe es ist einigermassen Verständlich
Gruss Hugo