Microsoft Excel

Herbers Excel/VBA-Archiv

Einfügen Zellen VBA | Herbers Excel-Forum


Betrifft: Einfügen Zellen VBA von: Hugo
Geschrieben am: 12.12.2009 14:47:43

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

  

Betrifft: AW: Einfügen Zellen VBA von: Uduuh
Geschrieben am: 12.12.2009 15:34:31

Hallo,
so?
ActiveCell.Offset(Zähler, 0).Range(cells(1,1),cells(1,NewFilSpa)).Insert Shift:=xlDown

Gruß aus’m Pott
Udo



  

Betrifft: AW: Einfügen Zellen VBA von: Hugo
Geschrieben am: 12.12.2009 15:58:58

Hoi Udo

Super, genau so.

Besten dank für die prompte Hilfe.

Gruss Hugo


Beiträge aus den Excel-Beispielen zum Thema "Einfügen Zellen VBA"