Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Textbox soll E-Mail Adresse anzeigen

Forumthread: Userform Textbox soll E-Mail Adresse anzeigen

Userform Textbox soll E-Mail Adresse anzeigen
Winfried
Hallo,
ich habe folgende Probleme: In einer Userform werden Adressen erfasst und in einer Tabelle gespeichtert. Die E-Mail Adressen werden nicht als Link erfasst, auf dem Tabellenblatt stehen sie auch nicht als Link. Wie muss ich den Code der Textbox ändern damit die E-Mail Adressen als Link erfasst werden?
Wenn ich die Adressen einlese in die Userform, möchte ich gerne wenn ich in das betreffende Feld mit der E-Mail Adresse klicke, dass sich in Outlook ein Blatt öffnet bei dem dann die E-Mail Adresse eingetragen ist und ein Mail geschrieben werden kann.
Vielen Dank für Hilfen
Mit freundlichen Grüßen
Winfried
Anzeige

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

Betreff
Benutzer
Anzeige
ActiveWorkbook.FollowHyperlink "mailto:" & tbMail
14.04.2010 17:39:26
NoNet
Hallo Winfried,
wenn die Textbox im UF, das die Mailadresse enthält z.B. tbMail heißt, kannst Du das mit folgendem Code im UserForm erreichen :
Private Sub tbMail_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
If InStr(tbMail.Value, "@") > 0 Then
ActiveWorkbook.FollowHyperlink "mailto:" & tbMail
End If
End Sub
Gruß, NoNet
Anzeige
AW: ActiveWorkbook.FollowHyperlink "mailto:" & tbMail
14.04.2010 18:12:52
Winfried
Hallo NoNet,
das funktioniert wunderbar, vielen Dank. Kann man das Textfeld auch so formatieren, das die E-Mail Adresse wenn sie korrekt ist blau unterstrichen angezeigt wird?
Gruß
Winfried
AW: ActiveWorkbook.FollowHyperlink "mailto:" & tbMail
14.04.2010 18:30:13
Winfried
Hallo NoNet,
ich habe das jetzt mit ForeColor und Font.Underline gelöst. Nochmals vielen Dank. Es ist genau das was ich haben wollte.
Gruß
Winfried
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

E-Mail-Adresse in Userform Textbox anzeigen und verlinken

Schritt-für-Schritt-Anleitung

Um eine E-Mail-Adresse in einer Userform Textbox anzuzeigen und gleichzeitig als Link zu formatieren, folge diesen Schritten:

  1. Öffne deine Excel-Datei und gehe zu den Entwicklertools.

  2. Erstelle eine Userform und füge eine Textbox hinzu, nenne sie tbMail.

  3. Füge den folgenden VBA-Code in das Codefenster deiner Userform ein:

    Private Sub tbMail_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
   If InStr(tbMail.Value, "@") > 0 Then
       ActiveWorkbook.FollowHyperlink "mailto:" & tbMail
   End If
End Sub

  4. Formatierung der E-Mail: Um sicherzustellen, dass die E-Mail-Adresse korrekt angezeigt wird, kannst du die Textbox so formatieren, dass die E-Mail-Adresse blau und unterstrichen erscheint. Verwende dazu folgenden Code:

    If InStr(tbMail.Value, "@") > 0 Then
   tbMail.ForeColor = vbBlue
   tbMail.Font.Underline = True
End If

  5. Testen: Führe die Userform aus und klicke auf die Textbox mit der E-Mail-Adresse. Es sollte sich Outlook öffnen und das E-Mail-Fenster erscheinen.

Häufige Fehler und Lösungen

  • Fehler: Textbox reagiert nicht auf Klicks
    Lösung: Stelle sicher, dass der Code im richtigen Abschnitt (MouseDown-Ereignis) eingefügt wurde. Überprüfe auch, ob die Textbox korrekt benannt ist (tbMail).

  • Fehler: E-Mail-Adresse wird nicht als Link angezeigt
    Lösung: Überprüfe die Formatierung des Textes in der Textbox. Stelle sicher, dass der Code für die Formatierung (Farben und Unterstreichung) korrekt implementiert wurde.

Alternative Methoden

Falls du eine andere Methode zur Anzeige von E-Mail-Adressen in Excel suchst, kannst du auch Hyperlinks direkt in Zellen verwenden:

  1. Wähle die Zelle aus, in der die E-Mail-Adresse stehen soll.
  2. Gehe zu Einfügen > Link > E-Mail-Adresse.
  3. Gib die gewünschte E-Mail-Adresse ein und bestätige.

Diese Methode ermöglicht es dir, alle E-Mail-Adressen anzuzeigen und sie direkt als Links zu verwenden.

Praktische Beispiele

Hier sind einige Beispiele, wie du die Textbox tbMail verwenden kannst:

  • Beispiel 1: E-Mail-Adresse eingeben, z.B. beispiel@domain.de, und beim Klicken öffnet sich Outlook mit dieser Adresse.
  • Beispiel 2: Wenn du mehrere E-Mail-Adressen in einer Liste hast, kannst du sie in die Userform einlesen und mit dem gleichen klickbaren Verhalten versehen.

Tipps für Profis

  • Überlege, die Validierung der E-Mail-Adresse zu implementieren, um sicherzustellen, dass nur gültige Adressen eingegeben werden.
  • Füge eine Statusanzeige hinzu, die dem Benutzer zeigt, ob die eingegebene E-Mail-Adresse korrekt formatiert ist.
  • Experimentiere mit verschiedenen Schriftarten und Größen, um die Sichtbarkeit der E-Mail-Adresse zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich mehrere E-Mail-Adressen in der Textbox anzeigen?
Du kannst die E-Mail-Adressen in einer Schleife durchlaufen und sie in die Textbox einfügen, indem du sie durch ein Komma trennst.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen. Achte darauf, dass du die Entwicklertools aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige