einen Link in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Formel per VBA in Zellen schreiben"