Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink einfügen

Betrifft: Hyperlink einfügen von: Erich M.
Geschrieben am: 14.08.2004 13:23:42

Hallo EXCEL-Freunde,

ich erstelle in einem Tabellenblatt eine Übersicht aller Sheets der Datei
und unterlege diese mit einem Hyperlink:
'Laufende Blattnummerierung + Blattname einfügen
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = blatt.Name
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 2), Address:="", SubAddress:= _
blatt.Name & "!A1", TextToDisplay:=blatt.Name
zeile = zeile + 1
Next blatt

Soweit kein Problem.
Es passiert aber folgendes:
bei einigen Blättern funktioniert der Link,
bei einigen Blättern nicht!!

Ich habe festgestellt, wenn ich in der Zelle den Hyperlink mit "Hyperlink bearbeiten"
anklicke und in dem Dialogfeld dann unter
"Oder wählen Sie eine Stelle aus dem Dokument" auswähle und unter "Zellbezug"
die Blätter auflisten lasse, bestehen Unterschiede. Es gibt Blätter die werden
Tabelle1
oder aber auch
'Tabelle1'
mit den Anführungszeichen angezeigt.
Die Blätter ohne Anführungszeichen kann ich per Link erreichen,
bei Blättern mit '' erhalte ich den Hinweis beim Link "Verweis ungültig".

Woher kommen die Unterschiede; kann man das beheben?

Besten Dank für eine Hilfe!

mfg
Erich

  


Betrifft: AW: Hyperlink einfügen von: Frank
Geschrieben am: 14.08.2004 13:54:07

Hi Erich
nicht getestet aber versuche mal folgendes Statement:
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 2), Address:="", SubAddress:= "'" & _
blatt.Name & "'!A1", TextToDisplay:=blatt.Name

Frank


  


Betrifft: DANKE - Frank; Volltreffer o.T. von: Erich M.
Geschrieben am: 14.08.2004 15:59:12

.


  


Betrifft: Doch noch ein Problem von: Erich M.
Geschrieben am: 14.08.2004 16:26:42

Hallo Frank,

habe mich zu früh gefreut; ich habe den Code erweitert, dass die erstellten
Hyperlinks kopiert und dann sortiert werden.
Das funktioniert bis zur Kopie. Leider schaffe ich es nicht, dass die Hyperlinks
erhalten bleiben:

Option Explicit
'Laufende Blattnummerierung + Blattname einfügen
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = blatt.Name
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 2), Address:="", SubAddress:="'" & _
blatt.Name & "'!A1", TextToDisplay:=blatt.Name
zeile = zeile + 1
Next blatt

ActiveSheet.Columns("B:B").EntireColumn.AutoFit

'Kopiere die zwei erstellten Spalten
Range("A3", Range("B65536").End(xlUp)).Copy
Cells(3, 4).PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cells(3, 4).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

' Sortiere die Spalte mit den Hyperlinks
Range("D3", Range("E65536").End(xlUp)).Select
Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

' Hyperlink erstellen
'?????????? Wie ??????????????
For i = 3 To Cells("E65536").End(xlUp)
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 5), Address:="", SubAddress:="'" & _
Cells.Value & "'!A1", TextToDisplay:=Cells.Value
Next i



Code eingefügt mit: Excel Code Jeanie

Besten Dank nochmal!

mfg
Erich


  


Betrifft: Hyperlinks sortieren von: Beate Schmitz
Geschrieben am: 14.08.2004 22:05:48

Hallo Erich,

hatte auch mal dieses Problem und eine entsprechende Frage im Excel-Center mit Lösung unter diesem Thread:

http://www.excel-center.de/forum/read.php?f=1&i=47906&t=47906

Gruß,
Beate


  


Betrifft: AW: Hyperlinks sortieren von: Erich M.
Geschrieben am: 15.08.2004 07:21:56

Hallo Beate,

danke für den Tipp; leider komme ich mit dieser Lösung nicht klar, da ich das
Sortieren per VBA erledigen möchte, incl. des Erhalts des Hyperlinks.

mfg
Erich


  


Betrifft: Doch noch gelöst von: Erich M.
Geschrieben am: 15.08.2004 07:32:18

fürs Archiv:
'Kopiere die zwei erstellten Spalten und sortiere Hyperlinks
Range("A3", Range("B65536").End(xlUp)).Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D3", Range("E65536").End(xlUp)).Select
Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

mfg
Erich


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink einfügen"