Office: (Office 2013) Kopierte Zellen einfügen (mehrfach)

JR² · 17. Februar 2015

Hi,

wenn ich in Excel 1 Zeile kopiere, dann kann ich mehrere Zeilen markieren (z.B. 5), und dann wird bei "Kopierte Zellen einfügen" Platz geschaffen und 5x die Zeile eingefügt.

Wenn ich aber mehrere Zeilen kopiere, kann ich dies nur 1x so einfügen. Gerne würde ich wieder 5 Zeilen markieren, und damit festlegen, dass ich die Zeilen 5x eingefügt haben möchte.
Dazu kommt, dass nach einem Verwenden von "Kopierte Zellen einfügen" dieser Menüpunkt verschwindet.

Geht das? Wie?

Gruß,
JR²

:)

xlph · 19. Februar 2015

Hallo,

Code:

Sub ZeilenEinfügen()

Dim rngRowsCopy As Range
Dim rngRowsInsertCopy As Range

Const conCopyRow As Long = 1 ' KopierStartZeile
Const conCopyRowCount As Long = 5 ' Anzahl Zeilen

Const conInsertRow As Long = 8 ' EinfügeZeile
Const conGroupCount As Long = 2 ' Anzahl Einfüge-Blöcke

Set rngRowsCopy = Rows(conCopyRow).Resize(conCopyRowCount)
Set rngRowsInsertCopy = Rows(conInsertRow).Resize(rngRowsCopy.Rows.Count * conGroupCount)

With rngRowsInsertCopy
.Insert
rngRowsCopy.Copy Destination:=.Columns(1).Offset(-.Rows.Count)
End With

Set rngRowsCopy = Nothing
Set rngRowsInsertCopy = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Kopierte Zellen einfügen (mehrfach)

Kopierte Zellen einfügen (mehrfach)

Kopierte Zellen einfügen (mehrfach)

Kopierte Zellen einfügen (mehrfach) - Similar Threads - Kopierte Zellen einfügen

kopierte Zellen definiert einfügen

VBA-Automatische Aktualisierung und Einfügen von kopierten Zellen

Kopieren von Zellen wenn Bedingung erfüllt + sortieren der kopierten Werte

Kopierte Zellen lassen sich nicht einfügen

Kopierte Zellen bleiben markiert, einfaches Einfuegen leerer Zellen geht nicht mehr!

Formel die kopiert und Zellen überspringt

Zellen aus kopiertem Tab-Blatt im "ÜbersichtsBlatt&quot