Zeile einfügen mittel Sub
18.05.2019 14:07:24
Peter
ich möchte mittels eines Subs Zeilen in das aktive Arbeitsblatt einfügen und die Zeilennummer die eingefügt werden soll übergeben. Was mache ich falsch?
Option Explicit
Sub einfügen(ByVal insertRow As Integer)
Rows(insertRow & insertRow + 3).Select
Selection.Insert Shift:=xlDown
End Sub
Sub_Hauptprogramm()
insertRow = 80
Call einfügen
End Sub
Schon einmal besten Dank für euer Mühe.
Grüße
Peter
Anzeige