Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
564to568
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
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Richtige_Schreibweise_für_Hyperlink_unter_Excel_97

Richtige_Schreibweise_für_Hyperlink_unter_Excel_97
09.02.2005 08:16:11
Gerold
Guten Morgen Forum,
ich hoffe Ihr habt den Karneval gut überstanden!?
Ich habe eine Frage:
Unter Excel 2000 habe ich folgenden Code um einen Hyperlink auf verschiedene Tabellenblätter zu erstellen.
********************************************************************************
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 5, sp), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A7", TextToDisplay:=Sheets(i).Name
********************************************************************************

Dies funktioniert unter Excel 2000 auch einwandfrei aber nicht bei Excel 97 .
Dort bekomme ich an dieser Stelle einen Laufzeitfehler "1004"
mit der weiteren Info "Anwendungs oder objektdefinierter Fehler"
Ich hoffe mir kann da jemand weiterhelfen.
Im voraus schon mal besten Dank.
Gruß
Gerold Dornbusch

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Richtige_Schreibweise_für_Hyperlink_unter_Excel_97
09.02.2005 10:21:44
Gerold
Hallo Forum,
ich habe den Fehler gefunden.
So kommt der Fehler unter Excel 97
*******************************************************************************
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 5, sp), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A7", TextToDisplay:=Sheets(i).Name
********************************************************************************
So gibt es keinen Fehler
*******************************************************************************
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 5, sp), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A7"
********************************************************************************
Gruß
Gerold Dornbusch
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige