Formeln auslesen
Dietmar
folgenden Code habe ich hier in der Excel-Sammlung gefunden; er liest mir alle Formeln in eine Textdatei aus - KLASSE! Leider in Englisch und in Deutsch.
Kann mir jemand sagen wie ich ihn ändern kann, so dass nur die deutsche Formel ausgelesen wird?
Dank vorab!
Dietmar aus Aachen
Sub SaveFormulas()
Dim rng As Range
Dim iFile As Integer
Dim sFile As String
sFile = Application.Path & "\formulas.txt"
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 "Fertig"
'ActiveWorkbook.Close savechanges:=False
'Kill sFile
End Sub
Anzeige