Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink per VBA anlegen

Forumthread: 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

Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige