Thema Datum  Von Nutzer Rating
Antwort
Rot IP Adresse auslesen in Tabelle eintragen und neue IP aus Tabelle eintragen
02.08.2024 16:57:15 Bernd
NotSolved
02.08.2024 20:26:30 Gast78196
NotSolved
02.08.2024 22:32:17 Gast57251
NotSolved
05.08.2024 16:47:30 Bernd
NotSolved
14.08.2024 14:00:56 Bernd
NotSolved
14.08.2024 14:36:35 ralf_b
NotSolved
14.08.2024 14:38:41 Bernd
NotSolved

Ansicht des Beitrags:
Von:
Bernd
Datum:
02.08.2024 16:57:15
Views:
300
Rating: Antwort:
  Ja
Thema:
IP Adresse auslesen in Tabelle eintragen und neue IP aus Tabelle eintragen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot IP Adresse auslesen in Tabelle eintragen und neue IP aus Tabelle eintragen
02.08.2024 16:57:15 Bernd
NotSolved
02.08.2024 20:26:30 Gast78196
NotSolved
02.08.2024 22:32:17 Gast57251
NotSolved
05.08.2024 16:47:30 Bernd
NotSolved
14.08.2024 14:00:56 Bernd
NotSolved
14.08.2024 14:36:35 ralf_b
NotSolved
14.08.2024 14:38:41 Bernd
NotSolved