VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Formeln mit Zelladressen speichern

Gruppe

Funktion

Bereich

Formel

Thema

Formeln mit Zelladressen speichern

Problem

Wie kann ich alle Formeln eines Tabellenblattes mit den jeweils zugehörigen Zelladressen als Textdatei speichern?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

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 "Weiter"
   ActiveWorkbook.Close savechanges:=False
   Kill sFile
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und Formel