mittels des nachfolgenden Makros lese ich Formeln und Funktionen aus:
Sub FormelnUndFunktionenDokumentieren()
Dim i As Integer
Dim zelle As Range
Dim s As String
Dim l As Long
Sheets.Add Before:=Worksheets(1)
s = ActiveSheet.Name
l = 1
Sheets(s).Cells(l, 1).Value = "Tabelle"
Sheets(s).Cells(l, 2).Value = "Zelle"
Sheets(s).Cells(l, 3).Value = "Formel/Funktion"
Sheets(s).Cells(l, 4).Value = "Inhalt"
Range(Cells(l, 1), Cells(l, 4)).Font.Bold = True
l = l + 1
For i = 2 To ThisWorkbook.Worksheets.Count
Worksheets(i).Activate
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas).Select
For Each zelle In Selection
Sheets(s).Cells(l, 1).Value = Worksheets(i).Name
Sheets(s).Cells(l, 2).Value = zelle.Address
Sheets(s).Cells(l, 3).Value = "'" & zelle.FormulaLocal
Sheets(s).Cells(l, 4).Value = zelle.Value
l = l + 1
Next zelle
Next i
Sheets(s).Columns("A:D").AutoFit
End Sub
In einer separaten Tabelle stehen also die Formeln drin:
Spalte A Tabellenblatt
Spalte B Zelle
Spalte C Formel / Funktion
Spalte D Inhalt
Wenn ich nun feststelle, das da ein Formel falsch ist, dann würde ich diese falsche Formeln gerne in der separaten Tabellenblatt in Spalte C ändern. Und mittels Makro soll dann die Formel in die richtige Zelle des richtigen richtigen Tabellenblatt eingefügt werden.
Hintergrund: Ich muss 20 Tabellenblätter auf die richtigen Formeln prüfen, weil ich diese Datei übernommen habe. Vermutlich sind etliche Formlen falsch, weil man hier kopiert hat. Da passiert das halt.
Händisch wäre ich wohl einige Zeit beschäftigt.
Danke im Voraus, dass Du Dir das mal anschaut. Super wäre, wenn Du auch noch eine Lösung hättest.
Liebe Grüße
Claudia