Computername in Label ausgeben

[OBrown]

Hallo,

wie kann ich beim Start eines VBA Programms in Einer Excel Datei in einem Label meinen Computername anzeigen lassen ohne drauf zu klicken?

Um den Namen anzeigen zu lassen habe ich folgenden Code verwendet:

Set objNetwork = CreateObject("WScript.Network")

strComputerName = objNetwork.Computername

mit einer MsgBox wird der Computername auch angezeigt möchte halt nur das der Name in einem Label steht.

Danke für Hilfe!!!

[Amstelchen]

bau die zeilen in den laden-event der umgebenden userform ein.

Private Sub UserForm_Activate()

    Set objNetwork = CreateObject("WScript.Network")

    Label1 = objNetwork.Computername

End Sub

s'Amstel

[OBrown]

Super Antwort, besten Dank!