VBA Zeilen mehrfach hintereinander einf.
15.12.2015 20:15:31
Hermann
in meinem Tabellenblatt Tabelle1 befinden sich 45 Zeilen in denen verschiedene Werte und Formeln eingetragen sind.
Nun möchte ich diesen "Zeilenblock" kopieren und beginnend ab Zeile 46 mehrfach einfügen. Die Anzahl der einzufügenden "Zeilenblöcke" (wie oft mehrfach)soll über eine Imputbox eingegeben werden. Ich bekomme diesen scheinbar einfachen Code leider nicht hin. Den VBA-Code per Makrorekorder möchte ich nicht verwenden. Die Schleife läuft leider nur 1x durch, warum auch immer. Vielleicht kann mir von Euch jemand behilflich sein.
lGH
Sub ZeilenEinfügen()
Dim rngRowsCopy As Range
Dim rngRowsInsertCopy As Range
Dim byteBlockanzahl As Byte
Const conCopyRow As Long = 1
Const conCopyRowCount As Long = 45
Const conInsertRow As Long = 46
byteBlockanzahl = InputBox("Bitte Anzahl eingeben.")
Set rngRowsCopy = Rows(conCopyRow).Resize(conCopyRowCount)
Set rngRowsInsertCopy = Rows(conInsertRow). _
Resize(rngRowsCopy.Rows.Count * byteBlockanzahl)
For i = 1 To byteBlockanzahl
rngRowsCopy.Copy Destination:=rngRowsInsertCopy
Next
Set rngRowsCopy = Nothing
Set rngRowsInsertCopy = Nothing
End Sub
Anzeige