IP Adresse abfragen in Excel
Schritt-für-Schritt-Anleitung
Um die IP-Adresse des Rechners abzufragen, kannst Du den folgenden VBA-Code verwenden. Füge diesen in ein allgemeines Modul ein und führe das Makro "Start" aus.
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
Const MAX_IP = 5
Type IPINFO
dwAddr As Long
dwIndex As Long
dwMask As Long
dwBCastAddr As Long
dwReasmSize As Long
unused1 As Integer
unused2 As Integer
End Type
Type MIB_IPADDRTABLE
dEntrys As Long
mIPInfo(MAX_IP) As IPINFO
End Type
Public Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3) As Byte
Dim Cnt As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."
Next Cnt
ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)
End Function
Public Sub Start()
Dim Ret As Long
Dim Listing As MIB_IPADDRTABLE
Dim IPtext As String
On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True
' Hier weiterarbeiten mit der IP-Abfrage
MsgBox "Die IP-Adresse ist: " & ConvertAddressToString(Listing.mIPInfo(0).dwAddr)
END1:
End Sub
In diesem Code wird die IP-Adresse abgerufen und in einer Messagebox angezeigt. Du kannst dann eine Bedingung hinzufügen, um die Zelle D5 entsprechend zu setzen:
If ConvertAddressToString(Listing.mIPInfo(0).dwAddr) = "192.168.0.44" Then
Range("D5").Value = 1
Else
Range("D5").Value = 2
End If
Häufige Fehler und Lösungen
-
Fehlermeldung "Fehler beim Kompilieren": Wenn Du mit 64-Bit Excel arbeitest, musst Du den Code entsprechend anpassen. Du kannst z.B. LongPtr anstelle von Long verwenden.
-
Falsche IP-Adresse (nur localhost 127.0.0.1): Stelle sicher, dass Du die Schleife zur Adresskonvertierung auf For Cnt = 0 To 3 änderst, um alle vier Teile der IP-Adresse zu erfassen.
Alternative Methoden
-
CMD-Befehl verwenden: Du kannst die IP-Adresse auch über die Eingabeaufforderung mit cmd /c ipconfig abrufen. Hier ist ein Beispiel, wie Du dies in VBA umsetzen kannst:
Shell "cmd /c ipconfig", vbNormalFocus
-
Windows Management Instrumentation (WMI): Eine alternative Methode ist die Verwendung von WMI, um die IP-Adresse zu erhalten. Hier ein Beispiel:
Dim o As Object
Dim v As Variant
For Each o In GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
v = o.IPAddress
Debug.Print v(0) ' Ausgabe in den Direktbereich
Next
Praktische Beispiele
Angenommen, Du möchtest die IP-Adresse in Zelle A1 speichern und die Differenzierung in Zelle D5 vornehmen. Der vollständige Code könnte so aussehen:
Public Sub Start()
' ... [Vorheriger Code] ...
Dim IP As String
IP = ConvertAddressToString(Listing.mIPInfo(0).dwAddr)
Range("A1").Value = IP
If IP = "192.168.0.44" Then
Range("D5").Value = 1
Else
Range("D5").Value = 2
End If
End Sub
Tipps für Profis
-
Verwendung von Error Handling: Implementiere eine Fehlerbehandlung in Deinem Code, um unerwartete Fehler abzufangen und die Benutzerfreundlichkeit zu erhöhen.
-
Daten überprüfen: Stelle sicher, dass Du die IP-Adresse vor der Verarbeitung überprüfst, um ungültige Werte zu filtern.
FAQ: Häufige Fragen
1. Wie kann ich die IP-Adresse in einem bestimmten Format speichern?
Du kannst die IP-Adresse in Zelle A1 so speichern: Range("A1").Value = ConvertAddressToString(Listing.mIPInfo(0).dwAddr).
2. Was tun, wenn der Code nicht funktioniert?
Überprüfe, ob Du die richtigen Berechtigungen hast und ob Dein System 64-Bit ist. In diesem Fall musst Du den Code anpassen.
3. Kann ich die IP-Adresse auch über PHP auslesen?
Ja, Du kannst PHP verwenden, um die IP-Adresse des Servers auszulesen, z.B. mit $_SERVER['REMOTE_ADDR'].