Hyperlinks automatisch erstellen
28.07.2003 12:40:21
Martin S.
mit u.a. Makro erstelle ich mir ein Blatt mit Hyperlinks für jedes in der Mappe enthaltene Blatt.
Die Links verweisen allerdings immer auf Zelle A 378, sollen aber immer auf Zelle a1 in den jeweiligen Blättern verweisen.
Was muss ich im Code ändern?
Gruß
Martin
Sub TabellenNamenInHyperlinksWandeln()
Dim Tabelle As Worksheet
Dim Bereich As Range
Dim Zelle As Range
Sheets.Add
Range("A1").Select
For Each Tabelle In ActiveWorkbook.Sheets
ActiveCell.Value = Tabelle.Name
ActiveCell.Offset(1, 0).Select
Next Tabelle
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, "", Zelle.Value & "!" & ActiveCell.Address
Next Zelle
End Sub