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

Forumthread: Nur Tabellenblatt speichern nicht ganze Arbeitsm

Nur Tabellenblatt speichern nicht ganze Arbeitsm
19.03.2009 09:54:34
Horst
Hey !
Da eine meiner Arbeitsmappe immer mehr Arbeitsblätter (Tabellen) bekommt. Möchte ich diese irgendwie ausgliedern und nur bei bedarf wieder reinladen.
Kann ich das irgend wie per Marko oder zu Fuß erledigen?
Das heißt unter ihrem Namen ablegen. Und irgendwie (per extra Menüpunkt) ein öffnen Tabellenblatt von Datei ermöglichen?
Gruß
Horst
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Tabellenblatt speichern nicht ganze Arbeitsm
19.03.2009 19:47:38
fcs
Hallo Horst,
Tabellen ausgliedern heist:
Jede Tabelle wird in eine neue Arbeitsmappe verschoben und unter einem eigenen Namen gespeichert.
Falls die Tabellenblätter keine Formelverknüpfungen haben zu anderen Blättern in der Tabelle, dann geht das relativ reibungslos.
Hier mal 2 entsprechende Makros.
Den Pfad für die auszulagernden Dateien muss du ggf. anpassen. Im Moment werden sie im gleichen Verzeichnis wie die Arbeitsmappe abgelegt.
Falls die Größe der Datei noch kein Problem ist, dann solltest du die "nicht erwünschten" Blätter einfach via Menü Format--Blatt-Ausblenden "verschwinden" lassen. Einblenden dann auch wieder via Menü.
Gruß
Franz

Sub BlattAuslagern()
Dim wks As Worksheet, wbk As Workbook, strPfad As String
strPfad = ActiveWorkbook.Path
Set wks = ActiveSheet
wks.Move
Set wbk = ActiveWorkbook
With wbk
.SaveAs Filename:=strPfad & Application.PathSeparator & ActiveSheet.Name, FileFormat:= _
xlWorkbook
wbk.Close
End With
End Sub
Sub BlattReinholen()
Dim wksQ As Worksheet, wbkQ As Workbook, wbk As Workbook, wks As Worksheet
Dim strDatei As Variant, strPfad As String
strPfad = ActiveWorkbook.Path
VBA.ChDir strpath
strDatei = Application.GetOpenFilename(Filefilter:="Excelfile(*.xl*),*.xl*", _
Title:="Bitte Datei mit Tabellenblatt öffnen")
If strDatei  False Then
Set wbk = ActiveWorkbook
Set wks = ActiveSheet
Set wbkQ = Workbooks.Open(Filename:=strDatei)
Set wksQ = wbkQ.Worksheets(1)
wbkQ.Worksheets.Add after:=wksQ 'Leerblatt einfügen, da sonnst evtl. Fehler im Ablauf
wksQ.Move after:=wks
wbkQ.Close savechanges:=True
VBA.Kill strDatei
End If
End Sub


Anzeige
AW: Nur Tabellenblatt speichern nicht ganze Arbeit
23.03.2009 07:33:17
Horst
Hallo Franz!
Ich hab das mal am WE ausprobieren dürfen.
So habe ich mir das ungefähr vorgestellt.
Vielen Dank!
Horst
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Nur ein Tabellenblatt in Excel speichern


Schritt-für-Schritt-Anleitung

Um einzelne Arbeitsblätter in Excel zu speichern, kannst du die folgende Schritt-für-Schritt-Anleitung verwenden. Diese Anleitung basiert auf der Nutzung von VBA (Visual Basic for Applications).

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub BlattAuslagern()
       Dim wks As Worksheet, wbk As Workbook, strPfad As String
       strPfad = ActiveWorkbook.Path
       Set wks = ActiveSheet
       wks.Move
       Set wbk = ActiveWorkbook
       With wbk
           .SaveAs Filename:=strPfad & Application.PathSeparator & ActiveSheet.Name, FileFormat:= _
           xlWorkbook
           .Close
       End With
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Wähle das Arbeitsblatt aus, das du speichern möchtest.

  6. Drücke ALT + F8, wähle BlattAuslagern und klicke auf Ausführen.

Damit hast du das einzelne Tabellenblatt als neue Arbeitsmappe gespeichert.


Häufige Fehler und Lösungen

  • Fehler: Excel speichert nicht.

    • Stelle sicher, dass du Schreibrechte für den Speicherort hast.
  • Fehler: Das Blatt wird nicht verschoben.

    • Überprüfe, ob das Arbeitsblatt Formeln hat, die auf andere Blätter verweisen. Dies kann das Verschieben verhindern.
  • Fehler: Makros sind deaktiviert.

    • Aktiviere Makros in deinen Excel-Einstellungen.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du auch die folgende Methode nutzen:

  1. Wähle das gewünschte Tabellenblatt aus.
  2. Klicke mit der rechten Maustaste auf das Blatt und wähle Verschieben oder Kopieren....
  3. Wähle Neue Arbeitsmappe aus und klicke auf OK.
  4. Speichere die neue Arbeitsmappe wie gewohnt (z.B. über Datei > Speichern unter).

Diese Methode ist einfach und benötigt keine VBA-Kenntnisse.


Praktische Beispiele

  • Beispiel 1: Du möchtest ein einzelnes Blatt aus einer Excel-Arbeitsmappe speichern. Nutze die obige VBA-Anleitung, um das gewünschte Blatt zu speichern.

  • Beispiel 2: Wenn du mehrere Blätter speichern möchtest, kannst du eine Schleife im VBA-Code verwenden, um durch alle Blätter zu iterieren und sie nacheinander zu speichern.


Tipps für Profis

  • Verwende VBA-Funktionen wie Application.GetOpenFilename, um dem Benutzer die Auswahl des Speicherorts zu ermöglichen.
  • Stelle sicher, dass der Dateipfad korrekt ist, um Probleme beim Speichern zu vermeiden.
  • Experimentiere mit Fehlerbehandlungsroutinen, um sicherzustellen, dass dein Makro auch bei unerwarteten Eingaben stabil bleibt.

FAQ: Häufige Fragen

1. Wie kann ich nur ein Tabellenblatt speichern?
Du kannst das oben beschriebene Makro verwenden, um einzelne Tabellenblätter zu speichern.

2. Was passiert mit den Formeln, wenn ich ein Blatt speichere?
Wenn das Blatt Verknüpfungen zu anderen Blättern hat, können diese beim Speichern verloren gehen. Stelle sicher, dass alle benötigten Daten im gleichen Blatt sind.

3. Funktioniert das auch in Excel 365?
Ja, die beschriebenen Methoden funktionieren in Excel 365 und anderen gängigen Versionen.

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