ich möchte alle Formeln aus Tabelle1 in Tabelle2 bei A1 beginnend auflisten lassen. Nach dem Schema:
Spalte A=Zellbezeichnung in der die Formel in Tabelle1 steht, Spalte B=die zugehörige Formel aus Tabelle1.
Geht bestimmt, nur wie?
Danke im voraus!
Sub Formelübersicht()
Dim r As Range
Sheets("Tabelle2").Activate
Cells.Delete
Range("A1").Value = "Zelle"
Range("B1").Value = "Formel"
Range("A2").Activate
For Each r In Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, 23).Cells
ActiveCell.Value = r.Address(False, False)
ActiveCell.Offset(0, 1).Formula = "'" & r.Formula
ActiveCell.Offset(1, 0).Activate
Next r
Range("A1").CurrentRegion.EntireColumn.AutoFit
Range("A1").CurrentRegion.AutoFormat xlRangeAutoFormatList3
End Sub
und hier das Beispiel:
https://www.herber.de/bbs/user/44686.xls
lg,
Sam
Sub Formelübersicht()
Dim r As Range
Sheets("Tabelle2").Activate
Cells.Delete
Range("A1").Value = "Zelle"
Range("B1").Value = "Formel"
Range("A2").Activate
For Each r In Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, 23).Cells
ActiveCell.Value = r.Address(False, False)
ActiveCell.Offset(0, 1).Formula = "'" & r.FormulaLocal
ActiveCell.Offset(1, 0).Activate
Next r
Range("A1").CurrentRegion.EntireColumn.AutoFit
Range("A1").CurrentRegion.AutoFormat xlRangeAutoFormatList3
End Sub
lg,
Sam