|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.06.2018 15:29:30 |
Claudi |
|
|
|
13.06.2018 17:51:51 |
Gast66406 |
|
|
|
13.06.2018 20:24:56 |
Gast35590 |
|
|
 Links in Dynamische Labels |
13.06.2018 18:36:45 |
xlKing |
|
|
|
13.06.2018 20:27:04 |
Gast79612 |
|
|
|
13.06.2018 21:34:44 |
Gast62406 |
|
|
Von:
xlKing |
Datum:
13.06.2018 18:36:45 |
Views:
608 |
Rating:
|
Antwort:
|
Thema:
Links in Dynamische Labels |
|
Hallo nochmal. Hier mal ein Beispiel, falls du die Labels tatsächlich erst während der Laufzeit erstellst:
Füge ein neues Klassenmodul "Klasse1" hinzu und gib dort diesen Code ein:
Public WithEvents Linklabel As MSForms.Label
Private Sub Linklabel_Click()
ActiveWorkbook.FollowHyperlink Linklabel.Tag
End Sub
Füge dann in dem Codemodul wo du die neuen Labels erstellst ganz oben vor der ersten Sub die Zeile Dim links As New Collection hinzu. und verbinde in deinem Code beides wie unten gezeigt. Falls du die Labels im Userform_Initialize-Ereignis erstellst, kannst du im Userform z.B. folgenden Code verwenden:
Dim links As New Collection
Private Sub UserForm_Initialize()
With Frame1.Controls.Add("Forms.Label.1")
.Top = 5 'Abstand zur oberen Kante des Frames
.Left = 5 'Abstand zur linken Kante des Frames
.Caption = "VBA Forum öffnen" 'LabelText
.Tag = "http://www.vba-forum.de/" 'tatsächlicher Link
.ControlTipText = "Öffnet die Website VBA-Forum.de" 'Beschreibung, wenn Maus drauf'
.ForeColor = vbBlue 'Textfarbe
links.Add New Klasse1 'Neuer Eintrag in die Collection mit Name des Klassenmoduls
Set links(links.Count).Linklabel = Controls(.Name) 'Label mit Klasse verbinden
End With
End Sub
Gruß Mr. K.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.06.2018 15:29:30 |
Claudi |
|
|
|
13.06.2018 17:51:51 |
Gast66406 |
|
|
|
13.06.2018 20:24:56 |
Gast35590 |
|
|
Links in Dynamische Labels |
13.06.2018 18:36:45 |
xlKing |
|
|
|
13.06.2018 20:27:04 |
Gast79612 |
|
|
|
13.06.2018 21:34:44 |
Gast62406 |
|
|