gibt es eine Möglichkeit in einer Excel-Datei mit mehreren Sheets nur in einem einzelnen, ausgewählten Sheet die Verlinkungen zu aktualisieren? Oder beispielsweise nur eine Auswahl von Zellen eines ausgewählten Sheets?
Gruss
Claus
Sub Hyper()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim r As Range
Dim Hl As Hyperlink
Set Wb = ThisWorkbook
'Auf allen Blättern
With Wb
For Each Ws In .Worksheets
With Ws
For Each Hl In .Hyperlinks
'Mach was mit dem Link
Next Hl
End With
Next
End With
'Auf einem Blatt (hier: Blatt1)
For Each Hl In Wb.Worksheets(1).Hyperlinks
'Mach was mit dem Link
Next Hl
'In einem Blatt-Bereich
With Wb
Set r = .Worksheets(1).Range("D4:F9")
For Each Hl In r.Hyperlinks
'Mach was mit dem Link
Next Hl
End With
End Sub
LG