Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
580to584
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
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Name in Mailadresse umwandeln

Name in Mailadresse umwandeln
03.03.2005 12:42:24
Erwin
Hallo Zusammen,
in Modul 1 lese ich den Excel User wie folgt aus:

Sub auto_open()
Dim sUsername As String
sUsername = Application.UserName
Range("Tabelle1!A1") = sUsername
End Sub

Als Ergebnis erhalte ich dann z. B. Max Mustermann.
Ich möchte jetzt, dass zwischen den zwei Namen ein Punkt anstelle des Leerzeichens kommt.
Grund ist, dass ich zusätzlich zum zuständigen Bearbeiter auch dessen Email Adresse auf Papier ausgeben möchte (z. B. Max.Mustermann@blablabla.de)
Wer kann mir bitte helfen?
Danke im voraus
Erwin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name in Mailadresse umwandeln
03.03.2005 13:01:47
ingoG

Sub aaaa()
Dim sUsername As String
sUsername = Application.UserName
[a1] = Left(sUsername, InStr(1, sUsername, " ") - 1) & "." & _
Mid(sUsername, InStr(1, sUsername, " ") + 1, 999) & "@Blablabla.de"
End Sub

AW: Name in Mailadresse umwandeln
03.03.2005 13:25:30
Erwin
Hi ingo G,
herzlichen Dank für die schnelle Antwort
Erwin
Danke für die Rückmeldung oT.
04.03.2005 10:25:41
IngoG
.
AW: Name in Mailadresse umwandeln
03.03.2005 13:40:51
UweD
Hallo
so gehts:
das Lcase() schaltet sogar noch auf kleinbuchstaben um

Sub auto_open()
Sheets("Tabelle1").[a1] = LCase(Application.Substitute(Application.UserName, " ", ".")) & "@blablabla.de"
End Sub

Gruß UweD
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige