Beim Einfügen eine Zeile überspringen

Hallo,
ich habe eine Idee, bei der ich aber nicht weiß, ob sie wirklich umsetzbar ist.
Ich habe einen Tabelle mit 2 Spalten und möchte diese kopieren (STRG+C). Beim Einfügen soll nun aber immer eine Zeile dazwischen frei bleiben, also beginnend bei D19 und E19, D20 und E20 bleiben frei, dann wieder D21 und E21 usw,
Das soll funktionieren, obwohl die Originaltabelle durchgehend Werte hat. Ich habe mich bis jetzt damit beholfen, dass ich eine Hilfsmatrix eingefügt habe und dann mit Excel-Formeln auf diese Hilfsmatrix verwiesen habe, geht das aber auch ohne Hilfsmatrix, also über ein Makro beim Einfügen?
Alternativ könnte ich mir auch vorstellen, dass man in der Excel-Datei ein Makro aufruft, dieses fragt dann am Besten per Mausklick die erste Zelle in einer weiteren Excel-Datei ab und arbeitet dann alle Zellen nach unten ab, bis die erste leere Zelle erscheint.
Danke im Voraus für Euere Tipps und Hilfestellungen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim X As Variant, a As Long, b As Long X = ActiveWindow.RangeSelection.CurrentRegion For a = 1 To UBound(X) Tabelle2.Cells(19 + b, 4) = X(a, 1) Tabelle2.Cells(19 + b, 5) = X(a, 2) b = b + 2 Next End Sub

Vielen Dank für den Ansatz.
Ich habe mir jetzt diesen Code zusammen gebastelt (so ganz funktioniert es noch nicht - es kommen immer noch Fehlermeldungen). Die Zellen werden nun doch aus der Zwischenablage übernommen:


Sub Unit()
Dim LastActive As String
LastActive = ActiveSheet.Name
Sheets(LastActive).Unprotect
Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Paste
With ActiveSheet
.Name = "XXX"
.Move Before:=Sheets(1)
End With
Cells(1, 1).Select
Dim X As Variant, a As Long, b As Long
X = ActiveWindow.RangeSelection.CurrentRegion
For a = 1 To UBound(X)
Sheets(LastActive).Cells(19 + b, 4) = X(a, 1)
Sheets(LastActive).Cells(19 + b, 5) = X(a, 2)
b = b + 2
Next
Application.DisplayAlerts = False
Sheets("XXX").Delete
Application.DisplayAlerts = True
Sheets(LastActive).Activate
Sheets(LastActive).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowInsertingHyperlinks:=True
Sheets(LastActive).EnableSelection = xlNoRestrictions
Application.ScreenUpdating = True
End Sub

Sub ZwischenZeile_einfügen(BlattName As String) Dim r With Worksheets(BlattName) For r = .Range("A99999").End(xlUp).Row To 2 Step -1 .Rows(r).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next End With End Sub Sub Test() ZwischenZeile_einfügen "Tabelle1" End Sub

Beliebteste Forumthreads (12 Monate)

Beim Einfügen eine Zeile überspringen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beim Einfügen eine Zeile überspringen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread