Fehler bei Hyperlinks.Add

Bild

Betrifft: Fehler bei Hyperlinks.Add
von: Michal
Geschrieben am: 26.04.2005 11:20:13
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?

Bild

Betrifft: AW: Fehler bei Hyperlinks.Add
von: Boris
Geschrieben am: 26.04.2005 11:32:13
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
Bild

Betrifft: AW: Fehler bei Hyperlinks.Add
von: Reinhard
Geschrieben am: 26.04.2005 11:36:19
Hallo Michal,
Address:= ist erforderlich.
Viele Grüße
Reinhard
Bild

Betrifft: AW: Fehler bei Hyperlinks.Add
von: Michal
Geschrieben am: 26.04.2005 11:45:07
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? :-(
Bild

Betrifft: AW: Fehler bei Hyperlinks.Add
von: Herbert
Geschrieben am: 26.04.2005 13:05:17
Hi,
Dim EintragZelle as Range
Set EintragZelle = Range("A7")
mfg Herbert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler bei Hyperlinks.Add"