VBA Copy and Paste Values To Next Empt
17.07.2023 10:42:29
Raimund
Ich habe mir folgenden Code gebastelt und es funktioniert eigentlich ganz gut.
Beispiel:
In Spalte Q have ich eine Reihe von Name oder was auch immer.
Wenn ich eine Zelle in der Spalte Q auswähle, dann wird diese kopiert und am Ende der gefüllten Spalte Q eingefügt.
Meine Frage ist, ob es möglich wäre diese kopierte Zelle nicht am Ende der befüllten Zellen in Spalte Q einzufügen, sondern alle befüllten Zellen unterhalb der ausgewählten eine Zelle nach unten zu verschieben und diese in die frei gewordene Zelle einzufügen?
Es soll sich nur Bereich in Spalte Q nach unten verschieben. Nicht die Daten in den benachbarten Spalten
Wie es im Moment funktioniert:
1 wird kopiert und am Ende eingefügt
1
2
3
4
5
1
Mein Wunsch wäre:
1 wird kopiert und alles unterhalb der 1 wird um eine Zelle nach unten verschoben und die 1 erst dann eingefügt.
1
1
2
3
4
5
Sub PasteValuesToNextEmpty()
Dim B As Range
Dim m As Long
Set B = Application.InputBox("Select the range to copy", Type:=8)
Selection.Copy
m = WorksheetFunction.Max(1, Cells(Rows.Count, "Q").End(xlUp).Row)
Range("Q" & m + 1).PasteSpecial xlPasteValues
End Sub
https://www.herber.de/bbs/user/159957.xls
Vielen Dank für Eure Hilfe
Gruss
Raimund