Probleme beim Kopieren einzelner Spalten (VBA)
10.09.2005 10:38:26
Dennis
ich habe beschriebene Zellen von Spalte A bis Spalte E. Nun würde ich gern die Spalten A,B,C und E an eine andere Stelle kopieren. Sofern ich die Zeilen genau angebe, funktioniert es. Leider ändert sich die Länge der Tabelle, so dass ich die Zeile varibel gestalten muss. Und dann klappt plötzlich nichts mehr. Makro1 funktioniert bestens, aber Makro2 kopiert den ganzen Block A-E und lässt die Spalte D nicht aus. Kann mir jemand sagen, warum?
Danke!!!
Sub test1()
Range("a1:c9, e1:e9").Copy
With Range("i1")
.PasteSpecial xlPasteValues
End With
End Sub
Sub test2()
ende = Range("a1").End(xlDown).Row
Range("a1:c" & ende, "e1:e" & ende).Copy
With Range("i1")
.PasteSpecial xlPasteValues
End With
End Sub
Gruß Dennis
Anzeige