2
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 74468
Url: https://administrator.de/contentid/74468
Printed on: April 16, 2024 at 11:04 o'clock
2 Comments
Latest comment
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
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.
Gruß
KgFmB
Warum auch immer.
Ich muss vorher
Sheets("Kriterien").Select
Range("A28:CG28").Select
in den Code einbauen. Dann funktioniert es.
Gruß
KgFmB