Herbers Excel-Forum - das Archiv

einen Link in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: einen Link in VBA
von: Michael

Geschrieben am: 20.04.2005 12:45:01
Hallo
ich habe ein Formular in VBA erstellt und möchte jetzt hierzu ein Textfeld einfügen mit dem ich per Klick (es soll ein Link sein) auf z.b. die Google seite komme oder irgend eine Datei geöffnet werden soll.
mfg
Michael
Bild

Betrifft: AW: einen Link in VBA
von: Frank Domke

Geschrieben am: 21.04.2005 08:45:46
Hallo Michael,
erstelle ein Label, beschrifte es mit mit der gewünschten Internet-Link (geht auch mit Email-Adresse) und gebe folgenden Code ins Klickereingnis:
Private Sub lblMail_Click()
Dim strLink As String
'strLink = "mailto:a.b@c.de"
strLink = <a href=""https://www.google.de"">"https://www.google.de"</a>
On Error GoTo NoCanDo
If ActiveWorkbook Is Nothing Then
Dim wb As Workbook
Set wb = Workbooks.Add
ActiveWorkbook.FollowHyperlink Address:=strLink, NewWindow:=True
wb.Close SaveChanges:=False
Set wb = Nothing
Else
ActiveWorkbook.FollowHyperlink Address:=strLink, NewWindow:=True
End If
frmCopyright.Hide
'Unload Me
Exit Sub
NoCanDo:
MsgBox "Mail kann leider nicht an " & strLink & " versendet werden!", _
vbExclamation + vbOKOnly
End Sub

 Bild