Range ohne Leerzeilen kopieren
05.08.2015 15:21:44
Bonduca
ich werde leider im Internet nicht fündig oder kann es nicht umsetzen.
ich möchte gerne die Zeilen D5:D150 kopieren und OHNE Leerzellen in K5:K150 einfügen.
Kleines Beispiel:
D K
1 1
"" 3
3 4
4 5
5
In der Spalte K sollen also keine Leerzellen zu finden sein.
Der bisherige Code kopiert leider mit Leerzellen.
Sub temp()
Dim sh1 As Worksheet
Set sh1 = ThisWorkbook.Sheets("ABC")
sh1.Range(Cells(5, 4), Cells(150, 4)).Copy
sh1.Range(Cells(5, 11), Cells(150, 11)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
_
SkipBlanks:=True, Transpose:=False
End Sub
Hat jemand eine Idee?
Danke!
Anzeige