ich komme mal wieder nicht weiter
Beim öffnen meiner Mappen wird die IP-Adresse festgelegt.
Ich möchte nun dass die IP Adresse in jeder Methode abfragbar ist.
Ich habe es mit Public As Variant versucht.
Aber dann kommt die Fehlermeldung : Ungültiges Attribut in Sub oder Funktion
Option Explicit
Sub Workbook_Open()
Dim o As Object
Dim v As Variant
For Each o In GetObject _
( _
"winmgmts:\\.\root\CIMV2" _
).ExecQuery _
( _
"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", , 48 _
_
)
v = o.DefaultIPGateway
If VarType(v) > &H2000 Then
v = o.IPAddress
Debug.Print v(0) 'Ausgabe in den Direktbereich
If v(0) = "192.168.178.23" Then 'Or v(0) = "192.168.178.11" Then
wksErfassung.Range("Version") = "1"
Else
wksErfassung.Range("Version") = "2"
End If
End If
Next
Call Kill(TempFil)
Kann mir jemand weiterhelfen?
Gruß
Andreas