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?