Wie extrahiert man Zellbezüge aus Formeln in Excel?

Angenommen, Sie haben einige lange Formeln und möchten nun alle Zellbezüge aus diesen Formeln extrahieren, wie im folgenden Screenshot gezeigt. Wie könnten Sie die Zellbezüge so schnell wie möglich aus den Formeln extrahieren?

Zellbezüge aus Formeln mit einer benutzerdefinierten Funktion extrahieren

Zellbezüge aus Formeln mit einer benutzerdefinierten Funktion extrahieren

Um die Zellbezüge aus Formeln zu extrahieren, könnte der folgende VBA-Code Ihnen helfen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Zellbezüge aus Formeln extrahieren:

Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
    Dim xRetList As Object
    Dim xRegEx As Object
    Dim I As Long
    Dim xRet As String
    Application.Volatile
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
    End With
    Set xRetList = xRegEx.Execute(Rg.Formula)
    If xRetList.Count > 0 Then
        For I = 0 To xRetList.Count - 1
            xRet = xRet & xRetList.Item(I) & ", "
        Next
        ExtractCellRefs = Left(xRet, Len(xRet) - 2)
    Else
        ExtractCellRefs = "No Matches"
    End If
End Function

3. Nachdem Sie den Code eingefügt haben, speichern Sie ihn und kehren zur Arbeitsmappe zurück. Geben Sie dann diese Formel ein: =extractcellrefs(G2) (G2 ist die Zelle, die die Formel enthält, aus der Sie die Zellbezüge extrahieren möchten) in eine Zelle, in der Sie das Ergebnis erhalten möchten, und drücken Sie die Eingabetaste. Alle Zellbezüge wurden aus der Formel extrahiert, siehe Screenshot: