Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Renatus vom 25.11.2019, 21:47 Options

Excel: Spalten in neues Arbeitsblatt kopieren

Hallo,

ich möchte gerne die Spalte A und alle Spalten, die beim Aufruf des Makros selektiert sind, in ein neues Arbeitsblatt kopieren. Wie geht das bitte?

Schöne Grüße

Renatus

Antwort schreiben

Antwort 1 von Hajo_Zi vom 26.11.2019, 08:32 Options

Hallo Reantus,

Selection.copy Worksheets("Tabelle2").Range("A:A")

Gruß hajo

Antwort 2 von Renatus vom 26.11.2019, 19:02 Options

Hallo,

ich habe mal

Selection.copy Worksheets("Tabelle2").Range("A:A")

als neues Modul eingefügt. Tatsächlich werden die markierten Spalten kopiert. Aber nicht Spalte A... Wo ist der Hase begraben?

Antwort 3 von Hajo_Zi vom 26.11.2019, 19:06 Options

Hallo Renatus,

ist die Spalte vieleicht nicht markiert?

Gruß Hajo

Antwort 4 von Renatus vom 26.11.2019, 23:08 Options

Hi,

wie schon geschrieben: "Spalte A und alle Spalten, die beim Aufruf des Makros selektiert sind". Mit anderen Worten: Spalte A ist nicht markiert, soll aber trotzdem mit kopiert werden.

Übrigens wäre es noch besser, wenn die Spalten in eine ganz neue Excel-Datei kopiert würden - nicht nur in ein neues Arbeitsblatt...

Danke schon mal für die Hilfe.

Gruß

Renatus

Antwort 5 von coros vom 27.11.2019, 05:23 OptionsLösung

Hallo Renatus,

nachfolgende Code-Zeilen sollten Dir Spalte A und alle markierten Spalten in eine neue Datei kopieren.

[b]Range("A:A," & Selection.Address).Copy
Workbooks.Add
Range("A1").PasteSpecial[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 6 von Renatus vom 27.11.2019, 18:45 Options

Danke für die Antwort. Es gibt mit


Range("A:A," & Selection.Address).Copy
Workbooks.Add
Range("A1").PasteSpecial

allerdings folgende Fehlermeldung:

Laufzeitfehler ´1004´:
Bei einer Markierung von nicht-angrenzenden Zellen ist die Ausführung dieses Befehls nicht möglich.

Antwort 7 von Renatus vom 28.11.2019, 20:50 Options

Weiß der Henker, warum, aber jetzt funktioniert es. Vielen Dank.

Antwort 8 von Renatus vom 29.11.2019, 14:24 Options

Ich habe jetzt herausgefunden, daß die oben genannte Fehlermeldung auftritt, wenn gar keine Spalte markiert wurde. Kann man da vielleicht eine Überprüfung durchführen, die ggfls. die Fehlermeldung "Bitte markiere mindestens eine Spalte!" ausgibt? Danach sollte das Makro beendet werden. Wäre prima.

Danke sehr.

Antwort 9 von coros vom 30.11.2019, 06:31 Options

Hallo Reantus,

dann sieht das wie folgt aus:

[b]If IsEmpty(Selection) = True Then
MsgBox "Es wurden keine zu kopierenden Spalten markiert. " _
& "Markierung bitte nachholen", vbCritical, "fehlende Spaltenmarkierung..."
Exit Sub
End If
Range("A:A," & Selection.Address).Copy
Workbooks.Add
Range("A1").PasteSpecial
[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 10 von Renatus vom 30.11.2019, 15:46 Options

Danke sehr. Habe fertig.

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..