Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt Speichern

Tabellenblatt Speichern
20.09.2006 11:57:21
vasko
Hallo Gemeinde
Ich möchte einzelne Tabellenblätter unter einem neuen Namen speichern.
Nachstehendes FBA habe ich für diesen Zweck estellt, leider funktioniert es nicht. Wer kann helfen?
Gruss Vreni

Sub Speichern()
ActiveWorkbook.Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Copy
ActiveWorkbook.SaveAs (Tabelle1.[A1] & " " & Blatt2.[A2] & _
".xls")
End Sub

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt Speichern
20.09.2006 12:01:08
Björn
Hallo Vreni,
Deine Variablen in der zweiten Zeile sind nicht definiert.
Was ist Tabelle1 und Blatt2? Wenn es Namen sind, dann musst Du sie in Anführungszeichen schreiben.
Aus was genau setzt sich denn der Speichernamen zusammen?
Gruß
Björn
AW: Tabellenblatt Speichern
20.09.2006 12:10:19
Vasko
Hallo Björn
Danke für die Antwort
In der Tabelle1 Zelle A1 ist der Speichtpfad definiert.
Blatt2 habe ich vergessen zu löschen, wird also nicht benutzt.
Gruss Vreni
Anzeige
AW: Tabellenblatt Speichern
20.09.2006 12:41:23
{mskro}
Dann sollte es so gehen:

Sub Speichern()
ActiveWorkbook.Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Copy
ActiveWorkbook.SaveAs (Tabelle1.[A1] & ".xls")
End Sub

Gruss Manfred
Rückmeldung wäre nett!
AW: Tabellenblatt Speichern
20.09.2006 14:48:20
Vasko
Hallo Björn
Soweit funktioniert das Makro. Es übenimmt den in Zelle "Tabelle1.[A1]" Dateiname und speicht das ganze. Soibald ich aber das Ganze mit einem Speichepfad erweitere läufts nicht mehr.

Sub Speichern()
ActiveWorkbook.Sheets(Array("Fixed Assets", "Internal Orders", "Interner Unterhalt", "Axicom")).Copy
ActiveWorkbook.SaveAs ("R:\AUTO\VRENI\WBau-Stunden\Rapporte\Berichte\" & Tabelle1.[A1] & ".xls")
End Sub

Gruss Vreni
Anzeige
AW: Tabellenblatt Speichern
20.09.2006 15:02:57
{mskro}
Hallo,
dann überprüfe mal ob du den Path richtig eingegeben hast, denn bei mir funktioniert es. Habe es gerade mal getestet mit folgendem VBA:

Sub Speichern()
ActiveWorkbook.Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Copy
ActiveWorkbook.SaveAs ("G:\Excel\" & Tabelle1.[A1] & ".xls")
End Sub

Gruss Manfred
Rückmeldung wäre nett!
Anzeige
AW: Tabellenblatt Speichern
20.09.2006 15:27:36
Vreni
Hallo zusammen
Jetzt funktionierts, muss irgenwo eine Schreibfehler gewesen sein.
Gruss und Dank an alle
Vreni
gern geschehen (o.T.)
20.09.2006 15:30:42
{mskro}
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige