Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Email als Link in Msgbox?
21.07.2006 14:18:29
Daniel
Hallo,
gibt es eine Möglichkeit, in einer MsgBox eine Emailadresse als Link darzustellen (mailto:xxxxx@xx)?
Danke für eure Hilfe!
Daniel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email als Link in Msgbox?
21.07.2006 15:20:34
ChrisL
Hallo Daniel
Das geht m.W. nicht. Du kannst aber eine MsgBox mittels Userform "simulieren" und folgender Code z.B. für ein Label verwenden:
ActiveWorkbook.FollowHyperlink Address:="https://www.herber.de", NewWindow:=True
Gruss
Chris
AW: Danke für die Lösung!
21.07.2006 16:26:42
Daniel
Super,
ich hab noch den Mauszeiger geändert:

Private Sub Label1_Click()
ActiveWorkbook.FollowHyperlink Address:="mailto:xxx@yy.at", NewWindow:=True
frmKontakt.Hide
End Sub


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

Funzt super!
Daniel
Anzeige
AW: Email als Link in Msgbox?
21.07.2006 15:37:26
Martin
Hallo Daniel,
hilft das?

Sub Mailadresse_in_MSGBOX()
Set Quelle = Worksheets("Tabelle1").Range("A1")
Link = Quelle.Value
MsgBox "Wollen Sie diese Mailadresse aufrufen?", 4, Link
Quelle.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

In Zelle A1 der Tabelle1 eingeben mailto:xyz@abc.de
Gruß
Martin Beck

168 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige