Name in Mailadresse umwandeln
03.03.2005 12:42:24
Erwin
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
Anzeige