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
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
Sub a()
With ActiveSheet.Range("A1:A50")
.Value = .Value
End With
End Sub
LGUm Excel-Formeln durch ihre Werte zu ersetzen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Gehe auf "Einfügen" und wähle "Modul", um ein neues Modul zu erstellen.
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
Schließe den VBA-Editor und kehre zu Excel zurück.
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.
Fehler: "Laufzeitfehler 1004: Anwendung oder Objekt definiert Fehler."
Fehler: "Keine Zellen ausgewählt."
Wenn Du keine VBA verwenden möchtest, gibt es auch manuelle Methoden, um Excel-Formeln durch Werte zu ersetzen:
Kopieren und Einfügen:
STRG + C
, dann mache einen Rechtsklick auf die Zielzelle und wähle "Inhalte einfügen" > "Werte".Tastenkombination:
STRG + C
, dann STRG + ALT + V
und wähle "Werte".Diese Methoden sind einfach und schnell, besonders wenn Du nur wenige Zellen bearbeiten musst.
Hier sind zwei praktische Beispiele, wie Du Formeln durch Werte ersetzen kannst:
Ersetzen einer Formel durch deren Ergebnis für eine ganze Spalte:
Sub ErsetzeFormelnInSpalteA()
With ActiveSheet.Range("A:A")
.Value = .Value
End With
End Sub
Power Query für bedingtes Ersetzen von Werten:
STRG + Z
, um Änderungen rückgängig zu machen, falls etwas schiefgeht.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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen