Anzeige
Archiv - Navigation
1112to1116
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
Inhaltsverzeichnis

Hyperlinkproblem

Hyperlinkproblem
highman4
Hallo Excelfreunde,
ich habe wieder mal ein kleines Problem.
Ich habe zwei Excel workbooks. eines hat ca. 150 sheets.
Das andere hat nur einen sheet.
In diesem Sheet sind in Spalte B alle Sheets des anderen Workbooks enthalten(nicht der Sheet-Name).
Nun möchte ich, das durch anklicken einer Zelle in Spalte B sofort das entsprechende Sheet in dem anderen Wprkbook geöffnet wird. Dazu müßte Excel in allen Sheets Zelle K1 kontrollieren ob es das Richtige ist.
Hat hier jemand eine schnelle Lösung? Ich habe leider im Archiv nicht das Passende gefunden.
Vielen Dank für Eure Hilfe
Marco

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hyperlinkproblem
30.10.2009 08:20:03
Mike
Hey Marco,
was meinst Du genau mit "sind in Spalte B alle Sheets des anderen Workbooks enthalten" wenn
dann der Sheet-Name nicht drin ist?
Gruss
Mike
AW: Hyperlinkproblem
30.10.2009 09:01:13
highman4
Hallo Mike,
in Spalte B des Workbooks mit nur einem Sheet steht in
Zelle B1 "1"
Zelle B2 "2"
Zelle B3 "3" usw bis Zelle B150 "150"
In Zelle K1 des anderen Workbooks finden sich genau diese Zellinhalte in jedem Sheet wieder.
Z.B. in Sheet Müller steht in Zelle K1 "1"
Sheet Meyer steht in Zelle K1 "2"
Sheet Lehmann steht in Zelle K1 "3" usw.
Hoffentlich ist das eindeutig.
Vielen Dank für Deine Hilfe
Marco
Anzeige
AW: Hyperlinkproblem
30.10.2009 10:40:06
xr8k2
Hallo Marco,
deine von dir beschriebene Verfahrensweise geht nur per VBA:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Cancel = True
If Not Intersect(Target, [B:B]) Is Nothing Then
For Each ws In Workbooks("DeineTabelleMitDenVielenSheets.xls").Sheets
If ws.Range("K1").Value = Target.Value Then
ws.Activate
Exit Sub
End If
Next ws
MsgBox "Wert nicht gefunden!"
End If
End Sub
Andernfalls müsstest du in jeder B - Zelle deines ersten Sheets einen Hyperlink auf das zugehörige Sheet der 2. Mappe setzen.
Gruß,
xr8k2
Anzeige
AW: Hyperlinkproblem
30.10.2009 12:48:44
Mike
Hey Marco,
was Du machen könntest ist, die (150) Sheets des Workbooks
in die Liste aufnehmen und dann den Hyperlink zur jeweiligen Zelle K1
erstellen.
Gruss
Mike
AW: Hyperlinkproblem
31.10.2009 10:12:43
highman4
Hallo xr8k2, hallo Mike,
vielen Dank für Eure Unterstützung, das Macro von xr8k2 macht genau das was ich will.
Sorry das ich erst so spät meinen Dank anbringen kann.
Herzliche Grüße und schönes WE
Marco

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige