Office: mehrere getrennte Spalten markieren

Hallo zusammen

Ich habe folgenden Code gefunden
Code:

Wie muss ich diesen Code ergänzen wenn ich noch weitere Spalten benötige?
zB. Spalten A, E, K, BL, BM

:)

 

Hallo Thomas,

mein Vorschlag:

 

Besten Dank IngGi
Dein Code funktioniert.
Wenn ich jetzt diese Markierung kopieren muss gibt er mir folgenden Bescheid:
"Bei einer Markierung von nicht-angrenzenden Zellen ist die Ausführung dieses Befehls nicht möglich."
Ich sollte die Spalten in einer neuen Datei X die offen ist, in Tabelle1 kopieren. Die Spaltenreihenfolge aber anders ist.
Spalte A kommt in Spalte A, Spalte E in B, BM in C, BL in D und K in E.

Wie geht man da vor?

 

Hallo Thomas,

Spalte für Spalte einzeln kopieren:

 

Hallo IngGi
Auch dieser Code funktioniert einwandfrei, SUPER.
Ich habe jetzt versucht eine Dateivorlage zu öffnen und habe auch einen Code in Netz gefunden der das auch "richtig" macht.
Diesen Code habe ich jetzt Deinem voran gesetzt, doch er meckert dann bei Deiner Codezeile: Range("A1:A" & Range("A1").End(xlDown).Row).Copy .Range("A1") beim letzten "Range"

Code:

Kann ich das so nicht zusammenbauen?

 

Moin, thomme1,

der Punkt vor .Range("A1") wird angemeckert - und das aus gutem Grund, bezieht er sich doch auf die Zeile, die Du so schön auskommentiert hast, nämlich die Angabe der Zielmappe und Zieltabelle in einer With-Anweisung. Deine Codeverschlimmberesserung sollte auch wegen des End With noch zu einer Fehlermeldung führen...

 

Hallo Jinx
Habe den Punkt vor RANGE entfernt.
Jetzt öffnet er mir eine Kopie der Vorlagendatei und springt auch in Tabelle1.
Dann kommt aber die folgende Fehlermeldung: „Index ausserhalb des gültigen Bereichs“
Was muss ich ändern?
Du schreibst auch noch von einer Verschlimmbesserung in meinem Code! Wie kann ich denn optimieren? Bin kein VBA-Experte und muss trotzdem eine alte bestehende Vorlage anpassen.
Danke Euch für jede Hilfe.

 

Moin, Thomas,

der Sinn einer Vorlagenmappe ist meiner Erinnerung nach, dass aus dieser heraus neue Mappe genau auf Basis dieser Vorlage erstellt werden, die dann aber die Endung *.xls tragen - man öffnet die Vorlagenmappe nur, um darin für alle folgenden Mappen Änderungen einzutragen. Ansonsten bleibt die Vorlage unangetastet. Welche Gründe sprechen bei Dir dafür, mit der Vorlage und nicht mit einer Kopie davon zu arbeiten?

Zum Verständnis: Du setzt keine Bezüge zu einer Mappe oder Tabelle, dann beziehen sich alle Angaben auf die aktuell aktive Tabelle der zuletzt aktiven Mappe (das ist dann z.B. die geöffnete Vorlage). Solange Du also nicht angibst, was von wo nach wo kopiert werden soll, würde ich als Anwendungsprogramm auch Probleme mit der Umsetzung haben. VBA ist manchmal scheinbar etwas störrisch, aber nur, weil der Maschine nicht haarklein erklärt wird, was sie tun soll.

Ungetestet und ohne Gewähr für Dein Vorhaben, und ich würde immer eine Kopie der Vorlage öffnen:

Code:

 

Jinx
Du hast schon gesehen dass ich eine Kopie der Vorlagendatei öffne, hat auch geklappt.
Danke für Deinen Code.
Er reklamiert aber bei dieser Zeile:
Code:

Habe den Namen mal geändert in Rechnungsuebersicht, aber immer noch dasselbe.

Sollte das behoben sein habe ich noch eine Frage.
Da ich in den Ursprungszellen Formeln habe, sollen nicht diese eingefügt werden sondern deren Werte.
Ist das der richtige Code?
Code:

Wo muss ich diesen einfügen?

 

Hallo Thomas,

zur ersten Frage:
Code:

Und zu deiner zweiten Frage:

Statt so:
Code:

müsste das dann so aussehen:
Code:

und entsprechend für die anderen Spalten. Die Eigenschaften Operation, SkipBlanks und Transpose für PasteSpecial brauchst du nicht anzugeben, da du für diese jeweils die Standardeinstellung verwendest.

Gruß Ingolf

 

Hallo Ingolf
Habe Deinen Code angepasst.
Jetzt bekomme ich die folgende Meldung:
Objektvariable oder with-Blockvariable nicht fertig.

 

Hallo Thomas,

zeig den momentan verwendeten Code nochmal im Ganzen und schreib dazu, in welcher Zeile der Fehler auftritt.

Gruß Ingolf

 

Besten Dank für Eure Geduld die Ihr mit mir habt.
Code:

Hier bricht er ab: Set wsVorlage = wbVorlage.Sheets(1)

Dies hier gibt er mir im Fenster LOKAL an: : wsvoragen : Leer : Variant/Empty

 

Hallo Thomas,

da ist nochmal ein Fehler drin:

wsVorlage statt wsVorlagen

Tipp: Aktiviere im VBA-Editor unter Extras | Optionen die Option Variablendeklaration erforderlich. Dann erscheint bei jedem neuen Codemodul oben Option Explicit. Bei alten Codemodulen musst du das händisch nachtragen.

Dies bewirkt, dass dir solche Fehler schon vor dem Ausführen des Codes angemeckert werden.

Der Fehler mit der Codezeile
Code:

scheint mir aber eher mit der Variablen wbVorlage zu tun zu haben. Ich nehme an, dass es ein Problem mit dem Öffnen der Dateivorlage gibt und die Variable daher auch nicht gesetzt wird. Kommentiere mal das On Error Resume Next vor der Codezeile, die die Vorlage öffnet aus, damit dir angezeigt wird, ob dort ein Fehler auftritt.

Gruß Ingolf

 

Hallo Ingolf
Wie meinst Du das mit dem Satz; "Kommentiere mal das On Error Resume Next vor der Codezeile, die die Vorlage öffnet aus, damit dir angezeigt wird, ob dort ein Fehler auftritt."
Bin VBA-Anfänger, hatte den Code vom Forum kopiert.