Excel VBA CopyToRange kopiert nicht mehr als 73 Spalten?

CopyToRange maximal 73 Spalten werden kopiert

Hallo zusammen,

versuch grad in Excel VBA den Befehl CopyToRange und stoß hier anscheinend auf Excel Grenzen.
Beim Kopierversuch von 73 (oder BS) Spalten funktioniert mein CopyToRange. Aber wenn ich versuche 74 (BT) Spalten zu kopieren stoppt er mit der Fehlermeldung "Laufzeitfehler 1004: Fehlender oder ungültiger Feldname in dem Zielbereich. Nur ist mein Problem ich müsste 85 (CG) Spalten kopieren.

Hab ich hier die maximale Anzahl von zu kopierenden Spalten erreicht?
Wie schaffe ich es die benötigten Spalten zu kopieren?

Ich freue mich über jeden Lösungsansatz.

Mit freundlichen Grüßen

KgFmB

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 74468

Url: https://administrator.de/forum/excel-vba-copytorange-kopiert-nicht-mehr-als-73-spalten-74468.html

Ausgedruckt am: 23.12.2024 um 03:12 Uhr

2 Kommentare

Neuester Kommentar

Um es etwas zu verdeutlichen hier mal mein VBA-Code:

Dies funktioniert:

Sheets("Datenbank").Range("A2:CG150").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Sheets("Kriterien").Range("A2:CG3"), CopyToRange:= _
Range("A28:BT28"), Unique:=False

Wenn ich aber die Zielrange auf BU setzte, funktioniert es nichtmehr:

Sheets("Datenbank").Range("A2:CG150").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Sheets("Kriterien").Range("A2:CG3"), CopyToRange:= _
Range("A28:BU28"), Unique:=False

MfG
KgFmB

Ich glaub, ich hab doch eine Lösung gefunden.
Warum auch immer.

Ich muss vorher

Sheets("Kriterien").Select
Range("A28:CG28").Select

in den Code einbauen. Dann funktioniert es.