2 Seiten auswählen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: 2 Seiten auswählen von: steve
Geschrieben am: 24.03.2005 13:38:32

Hallo,

ich habe diesen Abschnitt in einem Makro:

ActiveSheet.Copy
Sheets("Formeln").Select
Sheets("Formeln").Copy
ActiveWorkbook.SaveAs Filename:=prtcmd2 & ".xls"

das funktioniert so aber nicht. Ich möchte das aktive Tabellenblatt und das Blatt Formeln kopieren und dann in einer neuen Datei speichern.

WIe geht das?

MfG

SO

Bild


Betrifft: AW: 2 Seiten auswählen von: c0bRa
Geschrieben am: 24.03.2005 13:42:03

hallo...

Sheets(Array(ActiveSheet, "Formeln")).Copy sollte dir weiterhelfen...


Rückmeldung nicht vergessen...
c0bRa


Bild


Betrifft: AW: 2 Seiten auswählen von: steve
Geschrieben am: 24.03.2005 13:49:58

jetzt macht er gar nichts mehr.

Sheets(Array(ActiveSheet, "Formeln")).Copy
ActiveWorkbook.SaveAs Filename:=prtcmd2 & ".xls"
MsgBox "Datei " & prtcmd2 & " erstellt!"
Exit Sub

muss man dem nicht noch sagen, dass er es irgendwo einfügen soll? momentan hat er ja nur beide blätter kopiert aber noch nicht in ein neues Workbook eingefügt, richtig?


Bild


Betrifft: AW: 2 Seiten auswählen von: c0bRa
Geschrieben am: 24.03.2005 14:25:58

gute frage...

mein makrorekorder spuckt dazu auch nix aus, ich glaub ich weiß auch warum... weil sich dann das makro über das workbook hinaus fortführen müsste, was es nicht macht..

oder ich steh grad aufm schlauch... frage noch offen...
c0bRa


Bild


Betrifft: AW: 2 Seiten auswählen von: steve
Geschrieben am: 24.03.2005 14:29:24

und wenn man es nach dem Prinzip macht:

activsheet.copy
sheets("Formeln").select
sheets("Formeln").copy

und dann irgendwie:
paste copied sheets new workbook


Bild


Betrifft: AW: 2 Seiten auswählen von: m_is_neugierig
Geschrieben am: 24.03.2005 14:47:56

Hi Steve

So gehts:

Sub test()
    Sheets(Array(ActiveSheet.Name, "Formeln")).Copy '<-- hier war Dein Fehler; Du hast .Name vergessen
    prtcmd2 = "test"
    ActiveWorkbook.SaveAs Filename:=prtcmd2 & ".xls"
    MsgBox "Datei " & prtcmd2 & " erstellt!"
    Exit Sub
End Sub


Funktionierts auch bei Dir?

Ciao
Thorsten


Bild


Betrifft: AW: 2 Seiten auswählen von: steve
Geschrieben am: 24.03.2005 14:54:51

Vielen vielen Dank.
Noch eine kleine Frage, gibt es eine Möglichkeit die Funktion bei Excel zu umgehen, dass nur 255 Zeichen pro Zelle mitkopiert werden.

Ich habe nämlich in einer über 450.

MfG

Steve


 Bild

Beiträge aus den Excel-Beispielen zum Thema "2 Seiten auswählen"