Um Excel-Formeln auszuwerten und die Ergebnisse in einem Textdokument zu speichern, kannst Du folgende Schritte befolgen:
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul hinzufügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.
Code einfügen: Füge den folgenden VBA-Code in das Modul ein:
Sub FormelnAuswerten()
Dim ws As Worksheet
Dim cell As Range
Dim Ergebnis As String
Dim FilePath As String
' Arbeitsblatt festlegen
Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Tabellennamen nach Bedarf
FilePath = "C:\DeinPfad\Ergebnisse.txt" ' Pfad für die Textdatei
' Schleife durch alle Zellen
For Each cell In ws.UsedRange
If cell.HasFormula Then
Ergebnis = Ergebnis & cell.Address & ": " & Evaluate(cell.Formula) & vbCrLf
End If
Next cell
' Ergebnisse in Textdatei speichern
Open FilePath For Output As #1
Print #1, Ergebnis
Close #1
MsgBox "Formelauswertung abgeschlossen!"
End SubMakro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.
Fehler: "Excel Funktion auswerten nicht vorhanden"
Set ws = ThisWorkbook.Sheets("Tabelle1").Fehler: "Dateipfad ungültig"
Wenn Du keine VBA-Lösung nutzen möchtest, kannst Du auch die integrierte Excel Auswerten Funktion verwenden:
Formeln > Formelüberwachung > Formel auswerten.Angenommen, Du hast die Formel =SUMME(A1:A10) in Zelle B1:
Evaluate-Funktionen, um komplexere Formeln direkt in VBA auszuwerten.1. Kann ich auch mehrere Tabellen gleichzeitig auswerten?
Ja, Du kannst eine Schleife einfügen, um durch alle Tabellen in Deiner Arbeitsmappe zu iterieren.
2. Was passiert, wenn die Formel einen Fehler zurückgibt?
In diesem Fall gibt die Evaluate-Funktion einen Fehler zurück. Du kannst dies im VBA-Code abfangen und eine entsprechende Meldung speichern.
3. Welche Excel-Versionen unterstützen die oben genannten Funktionen?
Die beschriebenen Funktionen sind in Excel 2003 und neueren Versionen verfügbar.