Wie speichert man alle Arbeitsblätter nur als Werte?

Wenn Sie eine Arbeitsmappe mit mehreren Formeln haben und diese Datei nun an andere Benutzer verteilen möchten, ohne die Formeln anzuzeigen, sondern nur die Werte sichtbar zu machen, können Sie normalerweise schnell ein Arbeitsblatt als Werte speichern, indem Sie die Daten nur als Werte kopieren und einfügen. Aber wie könnten Sie alle Arbeitsblätter gleichzeitig nur als Werte speichern, ohne sie einzeln zu kopieren und einzufügen?

Alle Arbeitsblätter nur als Werte mit VBA-Code speichern

Alle Arbeitsblätter nur als Werte mit VBA-Code speichern

Der folgende VBA-Code kann Ihnen helfen, schnell alle Blätter als Werte (ohne Formeln) zu speichern und dabei alle Zellformatierungen beizubehalten. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Alle Arbeitsblätter nur als Werte speichern:

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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und die gesamte Arbeitsmappe wurde nur als Werte gespeichert. Alle Formeln wurden auf einmal entfernt, sodass nur noch Werte mit Zellformatierung übrig bleiben.

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

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!