www.Russ-Jesteburg.de > Excel > VBA > Datei
Export: Alle Formeln in TXT-Datei sichern:

Sub Alle_Formeln_sichern()
    Dim WS As Worksheet
    Dim Sicherungsdatei As String
    Dim Zeile As Long
    Dim Spalte As Integer
    
    Sicherungsdatei = ActiveWorkbook.Path & _
        Application.PathSeparator & "Sicherung.txt"
    Open Sicherungsdatei For Output As 1
    
    ' Such in allen Tabellenblättern, ...
    For Each WS In ActiveWorkbook.Worksheets
        ' ... allen Zeilen ...
        For Zeile = 1 To WS.UsedRange.Rows.count
            ' ... und allen Spalten ...
            For Spalte = 1 To WS.UsedRange.Columns.count
                ' ... nach Formeln ...
                If Cells(Zeile, Spalte).HasFormula Then
                    ' und exportiere sie in die Sicherungsdatei
                    Print #1, WS.Name & Chr(32) & _
                        Cells(Zeile, Spalte).Address & Chr(32) & _
                        Cells(Zeile, Spalte).Formula & Chr(13)
                End If
            Next Spalte
        Next Zeile
    Next WS
    Close #1
End Sub
Dieser Tipp ist vom 11.07.2005