Name in Mailadresse umwandeln

• Name in Mailadresse umwandeln von Erwin G. vom 03.03.2005 12:42:24
• AW: Name in Mailadresse umwandeln - von ingoG am 03.03.2005 13:01:47
  • AW: Name in Mailadresse umwandeln - von Erwin am 03.03.2005 13:25:30
    • Danke für die Rückmeldung oT. - von IngoG am 04.03.2005 10:25:41
• AW: Name in Mailadresse umwandeln - von UweD am 03.03.2005 13:40:51

Betrifft: Name in Mailadresse umwandeln
von: Erwin G.

Geschrieben am: 03.03.2005 12:42:24
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

Betrifft: AW: Name in Mailadresse umwandeln
von: ingoG
Geschrieben am: 03.03.2005 13:01:47

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

Betrifft: AW: Name in Mailadresse umwandeln
von: Erwin
Geschrieben am: 03.03.2005 13:25:30
Hi ingo G,
herzlichen Dank für die schnelle Antwort
Erwin

Betrifft: Danke für die Rückmeldung oT.
von: IngoG
Geschrieben am: 04.03.2005 10:25:41
.

Betrifft: AW: Name in Mailadresse umwandeln
von: UweD

Geschrieben am: 03.03.2005 13:40:51
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

Excel-Beispiele zum Thema "Name in Mailadresse umwandeln"
Abkürzungen umwandeln	URLs eines ausgewählten Bereiches in HyperLinks umwandeln
Textstring in berechenbare Formel umwandeln	Als Text vorhandene Werte in Zahlen umwandeln
Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen	TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln
5-Längen-Zeichenfolgen in Zeit mit Format mss,00 umwandeln	Zeichenfolgen über Doppelklick in externen Bezug umwandeln.
Alle "u" bis zum aktuellen Datum in "U" umwandeln	Strings, die wie Zahlen aussehen, in Zahlen umwandeln