ich habe nachstehenden Code aus dem forum entnommen und wäre sehr dankbar, wenn dieser so angepasst werden würde, dass alle Formeln eines markierten Bereiches auf einem extra Blatt angezeigt werden würden (innerhalb oder ausserhalb der Datei ist egal) .
Vielen Dank vorab.
Sub Formulas()
Dim rng As Range
Dim iFile As Integer
Dim sFile As String
sFile = Application.Path & "\formulas.xls"
iFile = FreeFile
Open sFile For Output As iFile
For Each rng In Range("A1").CurrentRegion.Cells
If rng.HasFormula Then
Print #iFile, _
rng.Address; Tab; _
rng.Formula, Tab; _
rng.FormulaLocal
End If
Next rng
Close iFile
Workbooks.OpenText _
Filename:=sFile, _
DataType:=xlDelimited, _
Tab:=True, _
semicolon:=False, _
comma:=False, _
Space:=False, _
other:=False
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub
Grüße
Bernd