Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink innerhalb einer UserForm erstellen

Forumthread: Hyperlink innerhalb einer UserForm erstellen

Hyperlink innerhalb einer UserForm erstellen
06.08.2015 15:39:54
Christian
Hallo zusammen,
ich habe eine UserForm mit der ich einige Daten in eine Exceltabelle eintrage.
Da ich auch Hyperlinks in die Tabelle schreiben muss, möchte ich das gerne innerhalb der UserForm machen. Jetzt muss ich die UserForm schließen und den angelegten Datensatz suchen und dann per rechter Maustaste den Hyperlink erstllen.
Geht so etwas auch direkt in der UserForm?
Es wäre sehr lieb, wenn ihr mir helfen würdet.
Vielen Dank.

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
06.08.2015 20:05:33
Beverly
Hi Christian,
leider schreibst du überhaupt nichts dazu, wie du die Daten ins Tabellenblatt einträgst und wo du die Zieladresse hernimmst, deshalb nur prinzipiell:
Cells(Zeile, Spalte).Hyperlinks.Add Anchor:=Cells(Zeile, Spalte), _
Address:="C:\Test\Testmappe.xls", TextToDisplay:="Link zur Datei"

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 07:14:09
Christian
Hallo Beverly,
ich habe hier mal eine Musterdatei mit Erklärungen gebaut.
Man kann die Eingabe per Doppelklick in eine Zelle öffnen.
Alles weitere ist als Kommentar in der UserForm als ControlTipText und als Kommentar in der Tabelle.
Vielen Dank.
https://www.herber.de/bbs/user/99381.xlsm

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 07:50:16
Beverly
Hi Christian,
den prinzipiellen Code dazu hatte ich doch bereits gepostet...
Konkret auf deine Mappe bezogen:
    Ws.Cells(StartZeile, 6).Hyperlinks.Add anchor:=Ws.Cells(StartZeile, 6), _
Address:="C:\Test\" & txtEtikett1, TextToDisplay:=txtEtikett1.Text
Ws.Cells(StartZeile, 7).Hyperlinks.Add anchor:=Ws.Cells(StartZeile, 7), _
Address:="C:\Test\" & txtEtikett2, TextToDisplay:=txtEtikett2.Text

anstelle deiner Zeilen
    Ws.Cells(StartZeile, 6) = txtEtikett1
Ws.Cells(StartZeile, 7) = txtEtikett2


Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 08:06:15
Christian
Danke Beverly.
Jetzt ist aber C:\Test\ fix.
Ich würde ja gerne auf die TextBox doppelt klicken und dann soll dies ausgeführt werden:
Application.Dialogs(xlDialogInsertHyperlink).Show
Der dort festgelegt Link soll dann in die TextBox eingetragen werden.
Danke

AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 09:42:57
Beverly
Hi Christian,
worum geht es denn: die Linkadresse (ich nehme an es handelt sich dabei um eine Datei auf einem Laufwerk?) soll ins Tabellenblatt eingetragen werden - oder? Wozu brauchst du da die Linkadresse im UserForm? Benutze doch einfach den Application.FileDialog(msoFileDialogFilePicker) um jeweils die Datei auszuwählen und den Pfad in die 4 TextBoxen zu schreiben. Benutze außerdem weitere 4 TextBoxen, um den Anzeigetext für jede Datei festzulegen. Anschließend kannst du mit dem Code aus meinem Beitrag den Link in die Zellen schreiben.
Im Anhang mein Vorschlag. Es gibt geänderten Code in der Prozedur CommandButton1_Click, neuen Code für das Doppelklick-Ereignis der 4 TextBoxen txtEtikett, ein neues Modul mit einer Sub zum Aufrufen des FilePicker-Dialogs und 4 neue TextBoxen für den Anzeigenamen jeweils zum betreffenden txtEtikett.
https://www.herber.de/bbs/user/99387.xlsm

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 09:56:22
Christian
Vielen Dank Beverly.
Ich kann per Doppelklick eine Datei aussuchen. Der Pfad wird auch in die TextBox (linken) geschrieben.
Die rechten TextBoxen sind leer.
Wenn ich den Datensatz speichere erscheint der Hyperlink nicht in der Zelle.
Liegt das an mir oder ist da noch ein Fehler im Code?
Vielen Dank

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 10:06:35
Beverly
Hi Christian,
wenn ich deine bereits vorhandenen Hyperlinks anschaue, dann haben sie einen anderen Anzeigetext als die eigentliche Linkadress. Deshalb bin ich davon ausgegangen, dass unbedingt ein Anzeigetext vorgegeben werden muss und falls in der rechten TextBox nichts steht, wird folglich kein Hyperlinks eignetragen. Wenn das anders sein soll, dann musst du dich schon konkret dazu äußern.

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 10:09:46
Christian
Hallo Beverly,
ich habe den Fehler gefunden. Du hasst einen kleinen Schreibfehler. Der kommt vor, wenn man so etwas programmiert.
Vielen Dank.

AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 11:41:09
Beverly
Hi Christian,
du hast Recht - ich hatte die 2 Zeilen kopiert und dann nur die Spaltennummern der Zielzellen und nicht die Nummern der TextBoxen angepasst. Hatte die letzten beiden nicht getestet weshalb es mir nicht aufgefallen war.

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
10.08.2015 12:23:55
Christian
Hallo Beverly,
hallo liebe User,
Ich übergebe die Listbox so von UserForm2 an UserForm1:
PalettenEtikett_liste(UserForm1.ListBox2.ListCount - 1) = Me.Lbl_PalettenEtikett.Text
In der Listbox ist ein Hyperlink eingetragen. Wenn ich die Userform2 schließe, wird mir .Text in gelb als Fehler markiert.
Ich weiß nicht wie ich das lösen kann.
Vielleicht kann mir ja jm helfen.
Danke

Anzeige
AW: Hyperlink innerhalb einer UserForm erstellen
07.08.2015 07:11:55
Christian
Hallo Luschi,
ich habe hier mal eine Musterdatei mit Erklärungen gebaut.
Man kann die Eingabe per Doppelklick in eine Zelle öffnen.
Alles weitere ist als Kommentar in der UserForm als ControlTipText und als Kommentar in der Tabelle.
Vielen Dank.
https://www.herber.de/bbs/user/99381.xlsm
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink in einer UserForm erstellen

Schritt-für-Schritt-Anleitung

Um einen Hyperlink innerhalb einer UserForm in Excel zu erstellen, folge diesen Schritten:

  1. Erstelle die UserForm: Öffne den Visual Basic for Applications (VBA) Editor und füge eine neue UserForm hinzu.

  2. Füge TextBoxen hinzu: Platziere die TextBoxen, in denen Benutzer die Hyperlink-Informationen eingeben können.

  3. Verwende den Doppelklick-Ereignis: Füge den folgenden Code in das Doppelklick-Ereignis der TextBox ein, um den Benutzer zu erlauben, einen Hyperlink auszuwählen:

    Private Sub txtEtikett1_DblClick()
    Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub

  4. Hyperlink in die Tabelle einfügen: Verwende den folgenden Code in deinem CommandButton-Click-Ereignis, um den Hyperlink in die Tabelle zu schreiben:

    Ws.Cells(StartZeile, 6).Hyperlinks.Add Anchor:=Ws.Cells(StartZeile, 6), _
Address:=txtEtikett1.Text, TextToDisplay:=txtEtikett1.Text

  5. Speichern und Testen: Speichere deine UserForm und teste sie, um sicherzustellen, dass die Hyperlinks korrekt in die Excel-Tabelle eingefügt werden.

Häufige Fehler und Lösungen

  • Hyperlink wird nicht angezeigt: Überprüfe, ob die TextBoxen, die die Hyperlink-Adresse und den Anzeigetext enthalten, korrekt ausgefüllt sind. Wenn die rechten TextBoxen leer sind, wird kein Hyperlink eingetragen.

  • Schreibfehler im Code: Oft können einfache Schreibfehler im VBA-Code dazu führen, dass Funktionen nicht wie gewünscht arbeiten. Achte darauf, dass die Bezeichner und Variablen korrekt sind.

  • Hyperlink als Symbol darstellen: Wenn du den Hyperlink als Symbol darstellen möchtest, kannst du ein Bild in die UserForm einfügen und den Hyperlink darauf setzen.

Alternative Methoden

  1. FileDialog verwenden: Statt den Link manuell einzugeben, kannst du den Application.FileDialog(msoFileDialogFilePicker) verwenden, um eine Datei auszuwählen und den Pfad automatisch in die TextBox zu schreiben.

  2. Direktes Einfügen: Du kannst auch den Code direkt in das Worksheet einfügen, um Hyperlinks zu erstellen, ohne durch die UserForm zu gehen:

    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, 1), _
Address:="C:\Test\Testmappe.xls", TextToDisplay:="Link zur Datei"

Praktische Beispiele

  • Beispiel 1: Hyperlink zu einer Webseite einfügen:

    Ws.Cells(StartZeile, 6).Hyperlinks.Add Anchor:=Ws.Cells(StartZeile, 6), _
Address:="http://www.example.com", TextToDisplay:="Beispiel Webseite"

  • Beispiel 2: Hyperlink zu einer PDF-Datei:

    Ws.Cells(StartZeile, 7).Hyperlinks.Add Anchor:=Ws.Cells(StartZeile, 7), _
Address:="C:\Dokumente\Beispiel.pdf", TextToDisplay:="PDF Dokument"

Tipps für Profis

  • Verwende ControlTipText: Füge ControlTipText zu Deinen TextBoxen hinzu, um den Benutzern zu zeigen, was sie eingeben sollen.

  • Hyperlink-Management: Halte eine Liste von Hyperlinks in einem separaten Arbeitsblatt, um sie einfacher verwalten und aktualisieren zu können.

  • Automatisierung: Überlege, ob du Makros verwenden möchtest, um häufige Hyperlink-Eingaben zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich einen Hyperlink in einer UserForm erstellen? Du kannst Hyperlinks in einer UserForm erstellen, indem du die Hyperlinks.Add-Methode im VBA verwendest, um sie direkt in die Zellen einer Arbeitsblatt-Tabelle einzufügen.

2. Warum wird mein Hyperlink nicht angezeigt? Stelle sicher, dass der Anzeigetext und die Adresse korrekt eingegeben sind. Wenn die TextBoxen leer sind, wird kein Hyperlink erstellt.

3. Kann ich einen Hyperlink als Symbol darstellen? Ja, du kannst ein Bild oder Symbol in die UserForm einfügen und dann den Hyperlink darauf setzen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige