Wie kann man überprüfen, ob ein Hyperlink in einem Arbeitsblatt in Excel vorhanden ist?

Um zu überprüfen, ob ein Hyperlink in einer Auswahl vorhanden ist, können Sie den folgenden VBA-Code verwenden.

Überprüfen Sie mit VBA-Code, ob ein Hyperlink in einer Auswahl vorhanden ist

Überprüfen Sie mit VBA-Code, ob ein Hyperlink in einer Auswahl vorhanden ist

Sie können mit dem folgenden VBA-Code überprüfen, ob ein Hyperlink in einer Auswahl oder einem Arbeitsblatt vorhanden ist.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA: Überprüfen Sie, ob ein Hyperlink in einer Auswahl vorhanden ist

Sub HyperlinkCells()
    Dim xAdd As String
    Dim xTxt As String
    Dim xCell As Range
    Dim xRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "
    Next
    If xAdd <> "" Then
        MsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"
    End If
End Sub

3. Drücken Sie die F5-Taste, um den Code auszuführen. Dann erhalten Sie ein Dialogfeld von Kutools für Excel. Bitte wählen Sie einen Bereich aus, in dem Sie Hyperlinks überprüfen möchten, und klicken Sie auf die Schaltfläche OK.

Ein Dialogfeld wird angezeigt, das die Zellen auflistet, die Hyperlinks im ausgewählten Bereich enthalten.