Application.UserName

28/02/2008 - 10:40 von Johnny Hartmannsgruber | Report spam
hi,

ich bràuchte mal eure hilfe...

ich will folgendes realisieren

case1: wenn Application.UserName = "xgrdjha", dann setze in zelle C1
folgenden text:
johnny
tel: 123
mail: a@b.de

case2: wenn Application.UserName = "xgrdcrs", dann folgenden text:
chris
tel: 124
mail: b@b.de

else: ansonsten folgenden text:
vertrieb
234534
vtr@b.de

Könnt ihr mir dazu den code liefern?

Danke für die Hilfe, Johnny
 

Lesen sie die antworten

#1 stefan onken
28/02/2008 - 11:30 | Warnen spam
On 28 Feb., 10:40, Johnny Hartmannsgruber
wrote:
hi,

ich bràuchte mal eure hilfe...

ich will folgendes realisieren

case1: wenn Application.UserName = "xgrdjha", dann setze in zelle C1
folgenden text:
johnny
tel: 123
mail:

case2: wenn Application.UserName = "xgrdcrs", dann folgenden text:
chris
tel: 124
mail:

else: ansonsten folgenden text:
vertrieb
234534


Könnt ihr mir dazu den code liefern?

Danke für die Hilfe, Johnny



hallo Johnny,
teste mal dieses:

Select Case Application.UserName
Case "xgrdjha"
Range("C1") = "johnny" & Chr(10) & _
"tel:123" & Chr(10) & "mail: "
Case "xgrdcrs"
Range("C1") = "chris" & Chr(10) & _
"tel:124" & Chr(10) & "mail: "
Case Else
Range("C1") = "vertrieb" & Chr(10) & _
"234534" & Chr(10) & "mail: "
End Select

Gruß
stefan

Ähnliche fragen