Link in UserForm einfügen

Forumthread: Link in UserForm einfügen

22.12.2004 09:10:12

Mario

Hallöchen,
wie kann man in einer UserForm einen Link einfügen? Beim Anklicken soll sich der IE mit einer bestimmten URL öffnen.
Vielen Dank schonmal für Eure Antworten.
MfG
Mario

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Link in UserForm einfügen

22.12.2004 09:23:00

Josef
AW: Link in UserForm einfügen

22.12.2004 09:24:08

Josef
AW: Link in UserForm einfügen

22.12.2004 09:32:52

Mario
AW: Link in UserForm einfügen

22.12.2004 09:51:53

Josef
AW: Link in UserForm einfügen

22.12.2004 10:18:40

Mario

AW: Link in UserForm einfügen

22.12.2004 09:23:00

Josef

Hallo Mario!
Das geht mit


ActiveWorkbook.FollowHyperlink <a href="Address:="http://wasweisich.de",">Address:="http://wasweisich.de",</a> NewWindow:=True

Gruß Sepp

AW: Link in UserForm einfügen

22.12.2004 09:24:08

Josef

Hallo Mario!
wurde falsch dargestellt!
ActiveWorkbook.FollowHyperlink Address:="http://Deine Adresse", NewWindow:=True
Gruß Sepp

AW: Link in UserForm einfügen

22.12.2004 09:32:52

Mario

cool, danke!
nur noch ein kleines Problemchen daran... es sollte auch wie ein Link aussehen, d.h. daß sich der cursor beim Darüberbewegen in eine Hand verwandelt. Ist das auch möglich?

AW: Link in UserForm einfügen

22.12.2004 09:51:53

Josef

Hallo Mario!
Geht auch!
Ich nehme an, es handelt sich um ein Label.


Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.MousePointer = 99
Label1.MouseIcon = LoadPicture("C:\windows\cursors\h_arrow.cur")
End Sub

Wobei die Cursordatei auf deinem System einen anderen Namen haben kann!
Einfach nachschauen und einen passenden Cursoe aussuchen.
Gruß Sepp

AW: Link in UserForm einfügen

22.12.2004 10:18:40

Mario

Danke, das hat mir sehr weitergeholfen!

Schritt-für-Schritt-Anleitung

Um einen Link in einer UserForm in Excel einzufügen, befolge diese Schritte:

Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge eine UserForm hinzu: Klicke im Projektfenster mit der rechten Maustaste auf dein Projekt, wähle Einfügen und dann UserForm.
Füge ein Label hinzu: Ziehe ein Label aus der Toolbox in die UserForm. Dieses Label wird als Link fungieren.
Code zum Öffnen des Links hinzufügen: Klicke doppelt auf das Label, um den Code-Editor zu öffnen, und füge den folgenden Code hinzu:
```
Private Sub Label1_Click()
    ActiveWorkbook.FollowHyperlink Address:="http://wasweisich.de", NewWindow:=True
End Sub
```

Cursor ändern: Um den Cursor beim Überfahren des Labels in eine Hand zu verwandeln, füge diesen Code in die UserForm ein:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.MousePointer = 99
    Label1.MouseIcon = LoadPicture("C:\windows\cursors\h_arrow.cur")
End Sub

Testen: Starte die UserForm, indem du die F5-Taste drückst. Wenn du auf das Label klickst, sollte sich der Internet Explorer mit der angegebenen URL öffnen.

Häufige Fehler und Lösungen

Fehler: Der Link öffnet sich nicht.
- Lösung: Überprüfe, ob die URL korrekt ist und ob dein Standardbrowser richtig konfiguriert ist.
Fehler: Der Cursor ändert sich nicht.
- Lösung: Stelle sicher, dass der Pfad zur Cursordatei korrekt ist. Suche nach einem passenden Cursor auf deinem System.

Alternative Methoden

Wenn du keinen Hyperlink verwenden möchtest, kannst du auch einen Button in der UserForm nutzen. Der Code bleibt ähnlich:

Private Sub CommandButton1_Click()
    ActiveWorkbook.FollowHyperlink Address:="http://deineurl.de", NewWindow:=True
End Sub

Praktische Beispiele

Link zu einer Webseite: Verwende den oben genannten Code, um einen Link zu einer Informationsseite einzufügen.

Link zu einem Dokument: Du kannst auch einen Link zu einem Dokument auf deinem Computer einfügen:

Private Sub Label1_Click()
    ActiveWorkbook.FollowHyperlink Address:="C:\Pfad\zu\deinem\Dokument.pdf", NewWindow:=True
End Sub

Tipps für Profis

Verwende Variablen für URLs: Um den Code flexibler zu gestalten, kannst du die URL in einer Variablen speichern:
```
Dim url As String
url = "http://wasweisich.de"
ActiveWorkbook.FollowHyperlink Address:=url, NewWindow:=True
```
Erstelle eine umfangreiche UserForm: Du kannst mehrere Links in einer UserForm einfügen, um den Nutzern eine zentrale Anlaufstelle für verschiedene Ressourcen zu bieten.

FAQ: Häufige Fragen

1. Wie kann ich einen Link in einer Excel-Tabelle einfügen?
Du kannst einen Hyperlink in einer Zelle einfügen, indem du mit der rechten Maustaste auf die Zelle klickst und Hyperlink auswählst.

2. Was ist der Unterschied zwischen einem Link und einem Weblink in Excel?
Ein Link kann auf verschiedene Ressourcen verweisen, während ein Weblink speziell auf eine Webseite führt. Beide können in UserForms und Tabellen verwendet werden.

Beliebteste Forumthreads (12 Monate)

Link in UserForm einfügen

Forumthread: Link in UserForm einfügen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial