Guten Mittag, ich hab was geschrieben.
Es funktioniert leider nur nicht ganz so wie ich mir das vorgestellt hatte.
Wenn nur was in Zelle C1 (Zelle: (1, 3)) steht, und weiter rechts in der Zeile nichts mehr steht, spuckt es mir einen Fehler aus weil es nicht nur C1 kopieren kann.
gibt es irgendwie eine Lösung wie ich das so anpassen kann, dass es mir nur C1 kopiert wenn rechts davon in den Zellen nichts mehr steht? Und trotzdem soll es wenn rechts von C1 was steht, trotzdem die ganze spalte bis zum ende der ausgefüllten zellen kopieren.
"...
ZWB.Worksheets("Ergebnis_ZP").Range(ZWB.Worksheets("Ergebnis_ZP").Cells(1, 3), ZWB.Worksheets("Ergebnis_ZP").Cells(3, ZWB.Worksheets("Ergebnis_ZP").Range("C1").End(xlToRight).Offset(0, -1).Column)).Copy
Cells(2, 26).End(xlToRight).Offset(0, 1).PasteSpecial xlPasteValues
..."
Danke :)