|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 IP Adresse auslesen in Tabelle eintragen und neue IP aus Tabelle eintragen |
02.08.2024 16:57:15 |
Bernd |
|
|
|
02.08.2024 20:26:30 |
Gast78196 |
|
|
|
02.08.2024 22:32:17 |
Gast57251 |
|
|
|
05.08.2024 16:47:30 |
Bernd |
|
|
|
14.08.2024 14:00:56 |
Bernd |
|
|
|
14.08.2024 14:36:35 |
ralf_b |
|
|
|
14.08.2024 14:38:41 |
Bernd |
|
|
Von:
Bernd |
Datum:
02.08.2024 16:57:15 |
Views:
152 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
IP Adresse auslesen in Tabelle eintragen und neue IP aus Tabelle eintragen |
02.08.2024 16:57:15 |
Bernd |
|
|
|
02.08.2024 20:26:30 |
Gast78196 |
|
|
|
02.08.2024 22:32:17 |
Gast57251 |
|
|
|
05.08.2024 16:47:30 |
Bernd |
|
|
|
14.08.2024 14:00:56 |
Bernd |
|
|
|
14.08.2024 14:36:35 |
ralf_b |
|
|
|
14.08.2024 14:38:41 |
Bernd |
|
|