ich habe ein größeres Problem.
Ich habe eine riesige Liste (Auszug als Anhang https://www.herber.de/bbs/user/33580.xls).
Deren Hyperlnks würde ich gerne auslesen lassen in Tabelle2.
Hat jemand ne Idee?
Gruß und Danke vorab
TOM
Sub til()
Dim hl As Hyperlink, c As Long
For Each hl In Tabelle1.Hyperlinks
c = c + 1
Tabelle2.Cells(c, 1) = hl.Address
Next
End Sub
Option Explicit
Sub til()
Dim hl As Hyperlink, c As Long
Worksheets("Tabelle2").Columns.Clear
For Each hl In Worksheets("Tabelle1").Hyperlinks
c = c + 1
Worksheets("Tabelle2").Cells(c, 1) = hl.Name
Next hl
End Sub
Sub Makro2()
Range("G9:G11").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Tabelle2").Select
ActiveWindow.SmallScroll Down:=-72
Range("A5").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("G15:G17").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Tabelle2").Select
ActiveWindow.SmallScroll Down:=18
Range("A31").Select
ActiveSheet.Paste
Range("D31").Select
End Sub