Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlinks automatisch erstellen

Hyperlinks automatisch erstellen
28.07.2003 12:40:21
Martin S.
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks automatisch erstellen
28.07.2003 13:12:37
Stephan

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 & "!" & "$A$1"
Next Zelle
End Sub


Anzeige

53 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige