Markierte Zeilen Verschieben und Löschen
01.01.2017 12:36:20
WalterK
Ich habe den nächst unteren Thread mit dem Code von Gerd L angesehen und auf mein Bespiel angelegt. Funktioniert soweit.
Allerdings wollte ich es so haben, dass auf jeden Fall die obersten 5 Zeilen nicht kopiert und gelöscht werden, auch wenn sie versehentlich selektiert wurden.
Wie geht das?
Hier das bisherige Makro:
Option Explicit
Sub MarkierteZeilenVerschieben()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim LzZ As Long
Dim Q As Range
Set wksQ = Worksheets("Quelle")
Set wksZ = Worksheets("Ziel")
Set Q = Selection.EntireRow
LzZ = Application.Max(5, wksZ.Cells(Rows.Count, 1).End(xlUp).Row)
Application.ScreenUpdating = False
With wksQ
Q.Copy
wksZ.Range("A" & LzZ + 1).PasteSpecial xlPasteAll
Q.Delete
End With
Application.CutCopyMode = False
Set wksQ = Nothing
Set wksZ = Nothing
Set Q = Nothing
End Sub
https://www.herber.de/bbs/user/110278.xlsm
Besten Dank, Servus Walter