Clever-Excel-Forum

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?

Hallo,

teste die Zeile so:

Code:
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Zeile, Spalte), Address:= _

         Cells(Zeile, 1).Value, TextToDisplay:="mailto:" & Cells(Zeile, 1).Value

(24.01.2017, 17:47)atilla schrieb: [ -> ]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!:)

nico_online

atilla

nico_online