Note: The other languages of the website are Google-translated. Back to English

Wie speichere ich alle Arbeitsblätter nur als Werte?

Wenn Sie eine Arbeitsmappe haben, die mehrere Formeln enthält, müssen Sie diese Datei jetzt an andere Benutzer verteilen. Sie möchten die Formeln nicht anzeigen, sondern nur Werte anzeigen. Normalerweise können wir ein Arbeitsblatt schnell als Werte speichern, indem wir die Daten nur als Werte kopieren und einfügen. Aber wie können Sie alle Arbeitsblätter nur als Werte speichern, ohne sie einzeln zu kopieren und einzufügen?

Speichern Sie alle Arbeitsblätter nur mit VBA-Code als Werte


Pfeil blau rechte Blase Speichern Sie alle Arbeitsblätter nur mit VBA-Code als Werte

Der folgende VBA-Code kann Ihnen helfen, alle Blätter schnell als Werte (keine Formeln) zu speichern und die gesamte Zellenformatierung beizubehalten. Bitte machen Sie Folgendes:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Speichern Sie alle Arbeitsblätter nur als Werte:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und die gesamte Arbeitsmappe wurde nur als Werte gespeichert. Alle Formeln wurden auf einmal entfernt. Lassen Sie nur Werte mit Zellenformatierung.

Hinweis: Bevor Sie den Code anwenden, können Sie zuerst eine Kopie der Arbeitsmappe speichern.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (18)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank! Der VBA-Code hat wunderbar funktioniert.
Eine Sache ist mir jedoch aufgefallen, als ich versuchte, es in einer Arbeitsmappe mit Filter für einige Zellen zu verwenden, funktioniert es nicht.
Gibt es eine Problemumgehung, damit dieser Code funktioniert, ohne den Filter zu deaktivieren?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das gleiche Problem bei der Verwendung von VBA-Code mit Filter. Hattest du eine Lösung dafür?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey konntest du das reparieren lassen? Ich habe das gleiche Problem
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr gut! Es hat viele meiner Probleme gelöst. Vielen Dank. Grüße.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank Bro..das ist erstaunlich..hat mir sehr geholfen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub Saveasvalue()
'Updateby Extendoffice 20161025
Dim wsh als Arbeitsblatt
Für jeden wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- Laufzeitfehler 1004 erhalten - KANN JEMAND HILFE AUF DIESEM.
Weiter
Application.CutCopyMode = Falsch
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn ich diesen Code ausführe, erhalte ich die Fehlermeldung "Getting Run Time Error 1004".
FYI, in meinem Excel gibt es Zellen verbinden.

Es wird hilfreich sein, wenn jemand eine Lösung gibt

Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Mirna,
Der obige Code funktioniert gut in meiner Arbeitsmappe, welche Excel-Version verwenden Sie?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es funktioniert gut. Danke.

@mirna: Sie müssen den Blatt- oder Zellenschutz aufheben. VB mag den Schutzmodus nicht :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert!! Muito Bom!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tengo ese código, si bien es cierto funciona pero quiziera que no Considere algunas hojas de mi archivo excel. se puede ?
Grüße.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Entfernen Sie alle Filter/Schutz in allen Blättern. sollte einwandfrei funktionieren.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gut! Exzellent! Ich brauche das, aber keine Blätter
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich muss Excel-basierte Finanzberichte mit Gruppierungen veröffentlichen. Dies funktionierte, um alle Formeln zu löschen und nur die Zahlen zu belassen. Andere Methoden, die ich ausprobiert habe, haben die Gruppierungen gelöscht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, dies rückgängig zu machen, wenn Sie vergessen haben, zuerst die Formelversion zu speichern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es läuft gut, aber ich brauche ein VBA-Einfügen als Wert für eine Reihe von Excel-Arbeitsmappen.



Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Dies ist, was ich verwende (ich verlasse die Datei automatisch, damit ich nicht versehentlich nur mit Werten speichere).

Aber ich wollte es behalten nur ein Blatt "normal" gespeichert weil ich dort eine Dropdown-Liste habe, die ich beim Teilen der Datei nicht verlieren möchte.


Kann mir jemand dabei helfen?

Vielen Dank!


Sub Saveasvalue()

Dim wsh als Arbeitsblatt
Für jeden wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Weiter
Application.CutCopyMode = Falsch

savename = Application.GetSaveAsFilename(fileFilter:="Exel-Dateien (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Dateiname:=Speichername, Dateiformat:=51

Application.DisplayAlerts = False 'Beenden ohne Warnungen
Anwendung.Quit
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg ka khdfzhjkg
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL