Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlink per VBA anlegen

Hyperlink per VBA anlegen
23.04.2007 06:46:29
Erich
Hallo EXCEL-Freunde,
habe bereits einige Codes mit VBA, die Hyperlinks setzen. Folgende Lösung krieg ich aber nicht hin:
In der Spalte A sind ab Zeile2 alle Namen der Tabellenblätter untereinander immer 24x aufgelistet, also
Zeile 2: Tabelle1
Zeile 3: Tabelle1 ... bis Zeile 25
Zeile 26: Tabelle2
Zeile 27: Tabelle2 ... bis Zeile 49
Zeile 50: Tabelle3
usw.
Jetzt soll immer wenn eine neue Tabelle in Spalte A aufgelistet wird, also Zeilen 2, 26, 50, 74 usw. der in dieser
Zelle
jeweilige Namen der Tabelle mit einem Hyperlink auf "A1 der Tabelle" gesetzt werden.
Besten Dank!
mfg
Erich

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink per VBA anlegen
23.04.2007 23:43:05
fcs
Hallo Erich,
sollte so funktionieren

Sub HyperlinksSetzen()
Dim wks As Worksheet, Zelle As Range, Zeile As Long
Set wks = Worksheets("Tabelle1") 'Tabelle in der Hyperlinks eingefügt werden sollen, ggf.  _
anpassen
For Zeile = 2 To wks.Cells(wks.Rows.Count, 1).End(xlUp).Row Step 24
Set Zelle = wks.Cells(Zeile, 1)
wks.Hyperlinks.Add Anchor:=Zelle, Address:="", SubAddress:="'" & Zelle.Value & "'!A1"
Next
End Sub


Gruß
Franz

Funktioniert Super; Danke Franz!! o.T.
24.04.2007 06:28:55
Erich
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige