Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt ohne Formeln speichern

Tabellenblatt ohne Formeln speichern
05.08.2021 22:04:55
AndreM
Hallo zusammen,
ich habe ein kleines Problem und meine VBA Kennnisse sind leider noch zu bescheiden um das Problem alleine zu lösen.
Ich möchte ein Tabellenblatt in einer neuen Datei Speichern, den Speicherort und den Namen holt das Makro von A2 und A1. Das Speichern funktioniert auch soweit, was ich nicht hinbekommen ist, die Datei nur mit den berechneten Werten zu speichern ohne Formeln und Makros.
Hier der Code, ich hoffe ihr könnt mir helfen. vielen Danke schon mal. Gruß Andre

Sub Speichern_neu()
Dim strPath As String
Application.ScreenUpdating = False
ChDir Sheets("Stundenbuch").Range("A2").Value
Sheets("Stundenbuch").Copy
Application.CutCopyMode = False
strPath = Application.GetSaveAsFilename(InitialFileName:=Sheets("Stundenbuch").Range("A1").Value & ".xlsx", FileFilter:="Exceldateien  (*.xlsx),*.xlsx,Alle Dateien (*.*), *.*")
If strPath = "False" Or strPath = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs strPath
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt ohne Formeln speichern
05.08.2021 23:45:22
Udo
Keine Ahnung wie umfangreich dein Zellbereich ist ...
z.B. mit .... Sheets("Tabelle1").Range("A1:KA10000") = Sheets("Bezug").Range("A1:KA10000").Value
könntest du schon mal dir nur die Werte in ein neues Tab holen, oder in das deiner Wahl ...
danach eben dein Codes bzgl. speichern...
Vielleicht kannst damit schon mal was anstellen. Je grösser der Bereich ist den du wandeln willst damit meckert er dann
halt mal bzgl. Arbeitsspeicher ...
Dann evtl. mit .copy und .pastespecial ( nur Werte )
Aber meine Kenntnisse sind auch nur bescheiden, trotzdem, evtl hilft dir das schon mal
LG Udo
Anzeige
AW: Tabellenblatt ohne Formeln speichern
07.08.2021 08:27:02
Hajo_Zi
Sheets("Stundenbuch").Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
GrußformelHomepage
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt ohne Formeln speichern


Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt in Excel ohne Formeln zu speichern, kannst du folgende Schritte ausführen:

  1. Öffne die Excel-Datei mit dem Tabellenblatt, das du speichern möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.
  4. Kopiere und füge den folgenden Code in das Modul ein:

    Sub Speichern_neu()
       Dim strPath As String
       Application.ScreenUpdating = False
       ChDir Sheets("Stundenbuch").Range("A2").Value
       Sheets("Stundenbuch").Copy
       Application.CutCopyMode = False
       strPath = Application.GetSaveAsFilename(InitialFileName:=Sheets("Stundenbuch").Range("A1").Value & ".xlsx", FileFilter:="Exceldateien  (*.xlsx),*.xlsx,Alle Dateien (*.*), *.*")
       If strPath = "False" Or strPath = "Falsch" Then Exit Sub
       ActiveWorkbook.SaveAs strPath
       ActiveWorkbook.Close
       Application.ScreenUpdating = True
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle Speichern_neu und klicke auf "Ausführen".

Damit wird das Tabellenblatt "Stundenbuch" ohne Formeln in einer neuen Excel-Datei gespeichert.


Häufige Fehler und Lösungen

  • Fehler: Die Datei wird nicht gespeichert.

    • Lösung: Überprüfe, ob der angegebene Speicherort in Zelle A2 existiert und ob du die Berechtigung hast, dort zu speichern.
  • Fehler: Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.

Alternative Methoden

Falls du kein Makro verwenden möchtest, kannst du auch manuell Werte ohne Formeln kopieren:

  1. Wähle den gewünschten Zellbereich im Tabellenblatt aus.
  2. Drücke STRG + C, um zu kopieren.
  3. Öffne ein neues Tabellenblatt (oder eine neue Datei).
  4. Klicke mit der rechten Maustaste auf die Zelle, wo du die Werte einfügen möchtest.
  5. Wähle „Inhalte einfügen“ und dann „Werte“.

Diese Methode ist besonders nützlich, wenn du mehrere Tabellenblätter in ein Tabellenblatt kopieren möchtest, ohne ein Makro zu verwenden.


Praktische Beispiele

  • Beispiel 1: Wenn du nur die Werte aus einem bestimmten Bereich (z.B. A1:KA10000) speichern möchtest, kannst du den Code anpassen:

    Sheets("Stundenbuch").Range("A1:KA10000").Copy
    Sheets("NeuesTabellenblatt").Range("A1").PasteSpecial Paste:=xlPasteValues
  • Beispiel 2: Um mehrere Tabellenblätter in ein Tabellenblatt zu kopieren, kannst du ähnliche Methoden verwenden, ohne auf Makros zurückzugreifen. Kopiere einfach die Bereiche der einzelnen Tabellenblätter und füge sie in einem neuen Tabellenblatt ein.


Tipps für Profis

  • Nutze Tastenkombinationen wie STRG + V für das Einfügen von Werten, um den Prozess zu beschleunigen.
  • Speichere häufig verwendete Makros in der Personal.xlsb-Datei, um sie in allen neuen Excel-Dokumenten zur Verfügung zu haben.
  • Experimentiere mit Fehlerbehandlungsroutinen in VBA, um robustere Makros zu erstellen, die auch bei Problemen nicht sofort abbrechen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Tabellenblätter in ein Tabellenblatt kopieren ohne Makro?
Du kannst die gewünschten Bereiche manuell kopieren und in ein neues Tabellenblatt einfügen, indem du "Inhalte einfügen" und dann "Werte" wählst.

2. Gibt es eine Möglichkeit, nur ein Tabellenblatt zu speichern?
Ja, indem du das oben beschriebene Makro verwendest oder die Werte manuell in eine neue Datei kopierst und dort speicherst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige