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

Forumthread: Formeln durch Werte ersetzen

Formeln durch Werte ersetzen
17.01.2018 16:26:15
Norbert
Hallo,
besteht die Möglichkeit Formeln per VBA automatisiert in Werte umzuwandeln? Also dass die dahinterliegenden Formeln (bsp.: SVERWEISE) entfernt werden und dafür nur das Ergebnis als Wert in der Zelle stehen bleibt?
Vielen Dank und Beste Grüße
Norbert
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln durch Werte ersetzen
17.01.2018 16:33:28
UweD
Hallo Norbert
so z.B.
Sub keine_Formel()
    Dim RNG As Range
    
    'Bereich festlegen 
    Set RNG = ActiveSheet.UsedRange
    'oder Set RNG = ActiveSheet.Range("A1:Z12") 
    'Set RNG = ActiveSheet.Cells 'alle 

    RNG.Value = RNG.Value
    
End Sub

LG UweD
Anzeige
AW: Formeln durch Werte ersetzen
17.01.2018 16:34:38
Michael
Hallo!
Ja, hier ein Mini-Beispiel:
Sub a()
With ActiveSheet.Range("A1:A50")
.Value = .Value
End With
End Sub
LG
Michael
AW: Formeln durch Werte ersetzen
17.01.2018 17:13:53
Norbert
Danke an euch beiden, beies funktioniert einwandfrei!
Beste Grüße
Norbert
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Formeln durch Werte ersetzen in Excel


Schritt-für-Schritt-Anleitung

Um Excel-Formeln durch ihre Werte zu ersetzen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

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

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

  3. Füge den folgenden Code in das Modul ein:

    Sub keine_Formel()
       Dim RNG As Range
       Set RNG = ActiveSheet.UsedRange
       RNG.Value = RNG.Value
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem Du auf ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.

Mit diesem Code werden alle Formeln im verwendeten Bereich durch ihre Ergebnisse ersetzt. Du kannst den Bereich auch spezifisch anpassen, z.B. Set RNG = ActiveSheet.Range("A1:Z12"), um eine bestimmte Auswahl zu treffen.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert Fehler."

    • Lösung: Stelle sicher, dass Du den richtigen Bereich im Code angegeben hast und dass die Arbeitsmappe nicht schreibgeschützt ist.
  • Fehler: "Keine Zellen ausgewählt."

    • Lösung: Überprüfe, ob das Arbeitsblatt aktiv ist und ob der Bereich, den Du ersetzen möchtest, tatsächlich Zellen mit Formeln enthält.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, gibt es auch manuelle Methoden, um Excel-Formeln durch Werte zu ersetzen:

  1. Kopieren und Einfügen:

    • Wähle die Zellen mit den Formeln aus, drücke STRG + C, dann mache einen Rechtsklick auf die Zielzelle und wähle "Inhalte einfügen" > "Werte".
  2. Tastenkombination:

    • Wähle die Zellen mit Formeln aus, drücke STRG + C, dann STRG + ALT + V und wähle "Werte".

Diese Methoden sind einfach und schnell, besonders wenn Du nur wenige Zellen bearbeiten musst.


Praktische Beispiele

Hier sind zwei praktische Beispiele, wie Du Formeln durch Werte ersetzen kannst:

  1. Ersetzen einer Formel durch deren Ergebnis für eine ganze Spalte:

    • Wenn Du z.B. alle Formeln in der Spalte A durch deren Werte ersetzen möchtest, kannst Du den folgenden VBA-Code verwenden:
    Sub ErsetzeFormelnInSpalteA()
       With ActiveSheet.Range("A:A")
           .Value = .Value
       End With
    End Sub
  2. Power Query für bedingtes Ersetzen von Werten:

    • Wenn Du Power Query verwendest, kannst Du die Funktion "Bedingte Spalte" nutzen, um Werte basierend auf bestimmten Kriterien zu ersetzen.

Tipps für Profis

  • Automatisierung: Du kannst die oben genannten VBA-Skripte in eine Schaltfläche auf Deinem Arbeitsblatt einfügen, um das Ersetzen von Formeln durch Werte zu automatisieren.
  • Sicherung der Daten: Bevor Du alle Formeln durch Werte ersetzt, mache immer eine Sicherungskopie Deiner Daten, um versehentliche Verluste zu vermeiden.
  • Verwendung von Shortcuts: Nutze STRG + Z, um Änderungen rückgängig zu machen, falls etwas schiefgeht.

FAQ: Häufige Fragen

1. Wie kann ich alle Formeln in einer Arbeitsmappe durch Werte ersetzen? Du kannst VBA anpassen, indem Du den Code so änderst, dass er über alle Arbeitsblätter iteriert und die Formeln ersetzt.

2. Gibt es eine Möglichkeit, Formeln automatisch durch Werte zu ersetzen, wenn ich die Datei speichere? Ja, Du kannst das VBA-Makro im "Workbook_BeforeClose" Ereignis platzieren, um dies automatisiert durchzuführen.

3. Ist es möglich, bestimmte Formeln beizubehalten und nur andere zu ersetzen? Ja, Du kannst Bedingungen in Deinem VBA-Code hinzufügen, um nur bestimmte Formeln durch Werte zu ersetzen.

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