Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei Hyperlinks.Add

Fehler bei Hyperlinks.Add
26.04.2005 11:20:13
Michal
Hallo
Ich habe das Problem, dass ich bei folgendem Codestück einen Fehler (Laufzeitfehler 13 "Type mismatch") erhalte:
EintragZelle = "A7"
iZeile = 15
HyperLinkText = Range("A" & iZeile).Text

ActiveSheet.Hyperlinks.Add _
Anchor:=EintragZelle, _
SubAddress:="A" & iZeile, _
TextToDisplay:=HyperLinkText
Was mach ich falsch?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Hyperlinks.Add
26.04.2005 11:32:13
Boris
Hi,
aus der Hilfe:
Anchor -0bjekt erforderlich. Die Verankerung des Hyperlinks. Kann ein Range- oder ein Shape-Objekt sein.
Du übergibst aber offensichtlich einen String.
Grüße Boris
AW: Fehler bei Hyperlinks.Add
26.04.2005 11:36:19
Reinhard
Hallo Michal,
Address:= ist erforderlich.
Viele Grüße
Reinhard
AW: Fehler bei Hyperlinks.Add
26.04.2005 11:45:07
Michal
Danke schonmal für euere Hilfe :-) Ich habe nun den Code folgendermassen abgeändert:
EintragZelle = Range("A7")
iZeile = 15
HyperLinkText = Range("A" & iZeile).Text

ActiveSheet.Hyperlinks.Add _
Anchor:=EintragZelle, _
Address:="", _
SubAddress:="A" & iZeile, _
TextToDisplay:=HyperLinkText

Nun erhalte ich aber den Laufzeitfehler 1004 "Application-defined or object-defined error". Was ist denn nun wieder falsch? :-(
Anzeige
AW: Fehler bei Hyperlinks.Add
26.04.2005 13:05:17
Herbert
Hi,
Dim EintragZelle as Range
Set EintragZelle = Range("A7")
mfg Herbert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige