Office: (Office 2016) Hyperlink (URL)

Ein freundliches Hallo an alle,

ich habe eine Userform mit einigen Textboxen. In einer dieser Textboxen hat man die Möglichkeit eine URL (Hyperlink) hinzuzufügen, welches dann auch so in Excel übernommen wird. Leider geht dieses nur, wenn auch bereits ein eine URL (Hyperlink) vorhanden ist, andernfalls gibt Excel einen Fehler aus.

Die URLTextbox soll später "automatisch" nach dem speichern den Hyperlink auf den Text der textbox1 hinzufügen.

Code:

 
zum abfragen:

If Not Tabelle1.Cells(lZeile, 1).Hyperlinks(1) Is Nothing Then TextBox7 = Tabelle1.Cells(lZeile, 1).Hyperlinks(1).Address


und (zum speichern)

             '####################URLfunktion TEST!!!!!
             With Tabelle1.Cells(lZeile, 1)
                If Len(Trim(TextBox7.Text)) Then
                 If Not .Hyperlinks(1) Is Nothing Then .Hyperlinks(1).Delete 'zuerst URL löschen falls vorhanden
                .AddHyperlinks Text:=TextBox7.Text 'neue URL erstellen mit dem Text aus Textbox 7"
                End If
             'End With
             '####################URLfunktion TEST!!!!!

Ich hatte bereits sowas ähnliches mit der Kommentar Funktion; dort funktioniert der Code bereits einwandfrei. Bei dieser Variante lässt es sich nicht anwenden. Ich finde den Fehler leider nicht. Ich wäre über Hilfe sehr Dankbar.


Vielen Dank im Voraus.

Gruß,
Limpies

 

Hallo,

du hast wahrscheinlich den Fehler "Index außerhalb des gültigen Bereichs" erhalten (Laufzeitfehler 9).
Enthält die Zelle keinen Hyperlink, so kann natürlich auch Zelle.Hyperlinks(1) nicht existieren, d.h. die Aufzählungs-Nr. 1 löst diesen Fehler aus.

Es gibt im Prinzip 2 Möglichkeiten, dieses Problem zu beheben:

• Mit einer Direktbehandlung mittels IF-Abrage:
  
  Code:

  If Tabelle1.Cells(lZeile,1).Hyperlinks.Count=0 Then
    TextBox7 = "Noch kein Hyperlink vorhanden ..."
  Else
    TextBox7 = Tabelle1.Cells(lZeile, 1).Hyperlinks(1).Address
  End If

• Mit einer ON-ERROR-Fehlerbehandlung - hier nicht beschrieben.
  

An deiner 2. Codestelle müsste es wie folgt lauten:

Code:

             With Tabelle1.Cells(lZeile, 1)
                If Len(Trim(TextBox7.Text)) Then
                 If  [COLOR="#FF0000"][B].Hyperlinks.Count[/B][/COLOR] Then  .Hyperlinks(1).Delete 'zuerst URL löschen falls vorhanden
                .AddHyperlinks Text:=TextBox7.Text 'neue URL erstellen mit dem Text aus Textbox 7"
                End If
             End With

 

Hallo Anton,

vielen herzlichen Dank, es klappt fast wunderbar. :)


Wenn in der Textbox 7 eine URL eingegeben/geändert wird, wird die "alte URL" gelöscht und es springt der Debugger an und zeigt folgenden Fehler:

Viele Grüße
Daniel

 

Hallo,

ich habe leider ungeprüft deinen weiteren Code übernommen. Dieser hatte aber nichts mit Excel-VBA zu tun, weshalb er auch nicht funktionierte.

Code:

  With Tabelle1
     Dim rngLink As Range
     Set rngLink = .Cells(lZeile, 1)
     If Len(Trim(TextBox7.Text)) Then
        With rngLink
            If .Hyperlinks.Count Then .Hyperlinks(1).Delete   'zuerst URL löschen falls vorhanden
        End With
        .Hyperlinks.Add Anchor:=rngLink, Address:=TextBox7.Text[COLOR="#0000CD"], ScreenTip:="SchnellTipp", TextToDisplay:="Link aus TextBox7"[/COLOR]
     End If
  End With

Dieser VBA-Code sollte jetzt funktionieren, sofern mit Tabelle1 der interne Objektinstanzname eines existierenden Arbeitsblattes (normalerweise Tabulator "Tabelle1") gemeint ist.
In der Zeile ".Hyperlinks.Add ..." können die beiden blau gefärbten Parameter auch weggelassen werden bzw. durch deine Wunschtexte ersetzt werden.

 

Hallo Anton,

vielen Vielen Dank - es funktioniert.

Danke Danke :)

Viele Grüße
Daniel