Hallo Leute,
Zuerst:
Es gibt anscheinend noch einen Bernd im Forum.

Nun zu meinem Problem:
Ich habe ganz viele SPSen, für die ich jeweils eine andere IP an meinem Laptop benötige.
Ich dachte ich mache mir eine Tabelle, in die ich alle IP eintrage und dann eine markiere. In die Zelle A2 möchte ich die aktuelle IP eintragen und dann die markierte IP in den Laptop eintragen lassen.

Nach langen Suchen, habe ich einen Code zum auslesen gefunden.
Damit kann ich die IP auch in die Tabelle schreiben.

Jetzt habe ich zB.: A5 markiert und möchte diese in den Laptop eintragen.
Da habe ich leider nichts gefunden.
Kann jemand hefen?

Der Code zum Auslesen:
 

Sub IPAdresse_Auslesen()

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
End If
Next

End Sub

Danke an alle die Helfen möchten.
Bernd