ich habe in meinem Projekt einen UnionRange die ich kopieren möchte.
Das funktioniert so weit auch ohne Fehler, nur werden die Daten direkt hintereinander eingefügt und die leeren Spalten werden nicht berücksichtigt.
ZeileMove = Zeile.Row - 1
'' Unionrange für Copy
Set UnionCopy = Union(.Range("B" & ZeileMove), .Range("C" & ZeileMove), .Range("E" & ZeileMove), _
.Range("U" & ZeileMove), .Range("V" & ZeileMove))
MsgBox UnionCopy.Address
''Copy
UnionCopy.Copy
''original zeile
ZeileMove = Zeile.Row
''Paste
Set UnionCopy = .Range("B" & ZeileMove)
UnionCopy.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, True
Die Daten stehen nur aber statt in B C E U Vhintereinander von B bis F.
Gruß JoNNy