Makro Text zu Email - Laufzeitfehler 5

[nico_online]

Moin ich habe folgenden Code um in meiner Excel Tabelle eingetragene Mail Adressen als Link einzutragen:

Code:

Sub Email()
 Spalte = 19 ' Spalte mit den Mailadressen
 vonZeile = 2 ' die erste Zeile
 bisZeile = 13364 ' letzte Zeile
 For Zeile = vonZeile To bisZeile
   If Not IsEmpty(Cells(Zeile, 1)) Then
     ActiveSheet.Hyperlinks.Add Anchor:=Cells(Zeile, Spalte), Address:= _
         "mailto:" + Cells(Zeile, Spalte).Value, TextToDisplay:=Cells(Zeile, Spalte).Value
   End If
 Next Zeile
End Sub

Beim Starten bekomme ich den Laufzeitfehler 5. Und beim Debuggen scheint der Fehler zwischen ActiveSheet... und End If zu liegen. Jemand eine Idee?

[atilla]

Hallo,

teste die Zeile so:

Code:

ActiveSheet.Hyperlinks.Add Anchor:=Cells(Zeile, Spalte), Address:= _
        Cells(Zeile, 1).Value, TextToDisplay:="mailto:" & Cells(Zeile, 1).Value

[nico_online]

Hallo,

teste die Zeile so:

Code:

ActiveSheet.Hyperlinks.Add Anchor:=Cells(Zeile, Spalte), Address:= _
        Cells(Zeile, 1).Value, TextToDisplay:="mailto:" & Cells(Zeile, 1).Value

Jetzt funktioniert es!

Code:

ActiveSheet.Hyperlinks.Add Anchor:=Cells(Zeile, Spalte), Address:= _
       "mailto:" + Cells(Zeile, Spalte).Value, TextToDisplay:="" & Cells(Zeile, Spalte).Value

Habe das noch etwas angepasst, um nicht überall mailto vorher stehen zu haben und die richtigen Werte einzufügen. Es lag wohl an dem TextToDisplay. Habe ich danach keinen Text in "" angegeben, funktioniert es nicht. Daher bei mir der Platzhalter. Lasse ich "  "" &  " weg dann funktioniert es nicht. Vielleicht hat ja jemand noch einen Hinweis, weshalb das so ist. Aber Es funktioniert jetzt auf jeden Fall! Danke!:)