Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen

01.05.2003 17:40:47

Remo

Hallo Leute

Wieder einmal plagt mich meine Unwissenheit.
Deshalb wende ich mich an Euch.
Wie kann man mit VBA eine variable Anzahl an Zeilen
einfügen? Die Anzahl einzufügender Zeile ist in der Zelle
A2 festgelegt.

Gruss Remo

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zeilen einfügen

01.05.2003 17:56:32

Heinz Ulm
Re: Zeilen einfügen

01.05.2003 17:57:35

Hans T.
Re: Zeilen einfügen

01.05.2003 17:58:48

Ramses

Re: Zeilen einfügen

01.05.2003 17:56:32

Heinz Ulm

Hallo Remo,

probiers mal damit:

Sub Einfügen()

Dim ZNr As Long
Range("a2").Value = Anzahl
ZNr = ActiveCell.Row + Anzahl - 1
Rows(ActiveCell.Row & ":" & ZNr).Insert Shift:=xlDown
Range("B3").Select

End Sub

Gruß Heinz

Re: Zeilen einfügen

01.05.2003 17:57:35

Hans T.

Hallo Remo

um über der aktuellen Zelle die gewünschte Anzahl Reihen einzufügen machst du folgendes:

Range(ActiveCell, ActiveCell.Offset([A2] - 1, 0)).EntireRow.Insert xlDown

Gruss
Hans T.

Re: Zeilen einfügen

01.05.2003 17:58:48

Ramses

Hallo Remo,

Gruss Rainer

Forumthread: Zeilen einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread