Excel-Home‎ > ‎Inhaltsverzeichnis‎ > ‎25 - Hyperlinks‎ > ‎

Alle Zellen eines Tabellenblattes markieren, denen ein Hyperlink hinterlegt worden ist (VBA)


Alle Zellen eines Tabellenblattes markieren, denen ein Hyperlink hinterlegt worden ist (VBA)

Alle Zellen eines Tabellenblattes markieren, denen ein Hyperlink hinterlegt worden ist (VBA)

Mit dem folgenden Makro können Sie alle Zellen in einem Tabellenblatt markieren, denen ein Hyperlink hinterlegt worden ist.

 

Sub Hyperlinks_Markieren()

On Error GoTo Programm_beenden

 Beginn = 1

  For Each xLink In ActiveSheet.Hyperlinks

   If Beginn = 1 Then

    Set xRange = xLink.Range

    Beginn = 0

   Else

    Set xRange = Application.Union(xRange, xLink.Range)

   End If

  Next xLink

 xRange.Select

Programm_beenden:  Exit Sub

  End Sub