Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einzelne TabBlätter unter neuem Namen speichern...

Einzelne TabBlätter unter neuem Namen speichern...
29.02.2004 17:52:00
thomasj
Hallo Forum,
ich habe eine Excel-Datei mit 15 sheets.
Da in den letzten 4 sheets eine Unmenge an Formeln sind, möchte ich nur die ersten 5 sheets abspeichern.
Die alte Datei soll aber bestehen bleiben und die neue soll einen Namen erhalten, der aus einem von mir definierten Text und den Inhalten von 2 Zellen bestehen soll.
Bsp.: Blatt1! Zelle A1="Test"
Blatt2! Zelle A2="2"
von mir definierter Text="Das war"
Dateiname soll dann sein "Das war Test 2.xls"
Das wird doch sicher hinzukriegen sein....
Vielen Dank im Voraus
Gruß
Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne TabBlätter unter neuem Namen speichern...
29.02.2004 18:01:49
Josef Ehrensberger
Hallo Thomas!
Im Prinzip funktioniert ads so!


Sub Speicher()
ActiveWorkbook.Sheets(Array("Blatt1", "Blatt2", "Blatt3", "Blatt4", "Blatt5")).Copy
ActiveWorkbook.SaveAs ("Das War" & " " & Blatt1.[A1] & " " & Blatt2.[A2] & _
".xls")
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.

(Sir Winston Churchill)


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige