Office: (Office 2016) Hyperlink (URL)

Helfe beim Thema Hyperlink (URL) in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ein freundliches Hallo an alle, ich habe eine Userform mit einigen Textboxen. In einer dieser Textboxen hat man die Möglichkeit eine URL (Hyperlink)... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Limpies, 8. Juli 2020.

  1. Limpies Erfahrener User

    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
     
    Limpies, 8. Juli 2020
    #1
  2. Exl121150 Erfahrener User
    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
    
     
    Exl121150, 8. Juli 2020
    #2
  3. Limpies Erfahrener User
    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
     
    Limpies, 8. Juli 2020
    #3
  4. Exl121150 Erfahrener User

    Hyperlink (URL)

    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.
     
    Exl121150, 8. Juli 2020
    #4
  5. Limpies Erfahrener User
    Hallo Anton,

    vielen Vielen Dank - es funktioniert.

    Danke Danke :)

    Viele Grüße
    Daniel
     
    Limpies, 8. Juli 2020
    #5
Thema:

Hyperlink (URL)

Die Seite wird geladen...
  1. Hyperlink (URL) - Similar Threads - Hyperlink URL

  2. Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

    in Microsoft Access Hilfe
    Inhalt eines Hyperlink Feldes in ein Textfeld kopieren: Hallo, kurz vorweg, GRUNDkenntnisse sind ein paar vorhanden, VBA-Kenntnisse sind nicht vorhanden. Ich habe eine DB zum verwalten meiner Dokumente. In einem Endlosformular erzeuge ich mit Hilfe...
  3. Word Hyperlinks (nicht unterstrichen) in der Fusszeile

    in Microsoft Word Hilfe
    Word Hyperlinks (nicht unterstrichen) in der Fusszeile: Hallo Forum! Ich habe ein Problem mit Erstellen von Hyperlinks in einer Adresszeile in der Fussleiste. Das Problem ist, der Kunde will, dass die Links (Telefon, Mail, Domain) nicht unterstrichen...
  4. Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.

    in Microsoft Word Hilfe
    Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.: Hallo zusammen Ich stehe vor einem Problem in Microsoft Word. Wenn ich auf einen Hyperlink klicke, wird mir die korrekte Freigabe im Google Drive nicht angezeigt. Jedoch, wenn ich den Hyperlink...
  5. Hyperlink mit Hilfe Sverweis

    in Microsoft Excel Hilfe
    Hyperlink mit Hilfe Sverweis: Hallo, ich weiß ähnliche Themen gab es leider schon, aber ich bin bisher dadurch absolut nicht weitergekommen. Ich bin hier echt am verzweifeln. Ich habe eine Liste mit verschiedenen Dateien...
  6. Hyperlink in bestimmte Zelle in Tabelle

    in Microsoft Excel Hilfe
    Hyperlink in bestimmte Zelle in Tabelle: Hallo, wie ich im Titel schon schrieb, möchte ich gerne einen Hyperlink in eine TABELLE erstellen, der auf eine bestimmte ZELLE in der Tabelle hinweist. Also z.B. 6 Zeile in Spalte Namen in der...
  7. Mit Hyperlink mehrere Zellen(inhalt!) anwählen

    in Microsoft Excel Hilfe
    Mit Hyperlink mehrere Zellen(inhalt!) anwählen: Moin zusammen, ich habe folgendes Problem: Ich habe eine Arbeitsmappe mit zwei Tabellen, bei der ich auf dem zweiten Blatt eine Zelle, einen Hyperlink, anklicken möchte, sodass ich in das erste...
  8. URL / Hyperlink im Forumular verwenden

    in Microsoft Access Hilfe
    URL / Hyperlink im Forumular verwenden: Hallo Access-Experten! Wer kann mir weiterhelfen. Ich möchte in einem Formular eine dynamische URL errichten, d.h. die Grunddomain ist www.domain.de/vorname_nachname. Vorname und Nachname sind...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden