Thema: Einfügen Zellen VBA | Herbers Excel-Forum

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

Hallo,
so?
ActiveCell.Offset(Zähler, 0).Range(cells(1,1),cells(1,NewFilSpa)).Insert Shift:=xlDown
Gruß aus’m Pott
Udo

Hoi Udo
Super, genau so.
Besten dank für die prompte Hilfe.
Gruss Hugo