Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

einen Link in VBA

einen Link in VBA
20.04.2005 12:45:01
Michael
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einen Link in VBA
21.04.2005 08:45:46
Frank
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

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige