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
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
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
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.
Gruss Rainer
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen