ich habe mir mir von dieser wirklich tollen Seite einen kleinen Programmcode zur Ermiitlung des Computernamens in ein Modul von mir reinkopiert.
Ich würde gerne diesen Wert in eine Userform übertragen bzw. vergleichen ob der eingegbene Wert des Users mit dem Wert den das Modul ermittelt hat vergleichen.
Dummerweise weiß ich nicht wie ich meine Excel dazubringe das Modul zum Laufen zubringen wenn ein Button in der Userform gedrückt wurde.
Viell könnt ihr helfen!?
Modul Inhalt:
Public strPCName As String
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize _
As Long) As Long
Private Const MAX_COMPUTERNAME_LENGTH = 15
Sub Demo_GetComputerName()
Dim strBuffer As String
Dim lngResult As Long
Dim nSize As Long
strBuffer = String$(MAX_COMPUTERNAME_LENGTH + 1, 0)
nSize = MAX_COMPUTERNAME_LENGTH + 1
lngResult = GetComputerName(strBuffer, nSize)
If lngResult = 1 Then
strPCName = Left$(strBuffer, nSize)
MsgBox strPCName
End If
End Sub
UserForminhalt:
Private Sub CommandButton2_Click()
Dim w3 As String
w3 = Sheets("tabelle1").Range(Chr(79) & t + 2).Value
If w3 = strPCName Then
MsgBox "Paßt"
End If
End Sub
Hoffe ihr könnt mir helfen. Danke schon mal im vorraus für eure Bemühungen.
Grüß
Marcel