in meiner Excel Tabelle soll geprüft werden, ob die IP-Adresse valide ist.
Dafür verwende ich den Code:
Public Function Macht_IP_Sinn(Zelle) As Boolean
Dim str
Dim i As Integer
Macht_IP_Sinn = True
str = Split(Zelle.Text, ".")
If UBound(str) 3 Then
Macht_IP_Sinn = False
Exit Function
End If
For i = 0 To UBound(str)
Select Case str(i)
Case 0 To 255
Macht_IP_Sinn = True
Case Else
Macht_IP_Sinn = False
Exit Function
End Select
Next
End Function
Das funktioniert auch. Die IP Adresse steht in einem Feld, und daneben benutze ich dann die Funktion: =WENN(Macht_IP_Sinn(A1);"i.O.";"n.i.O.")
Um einfach i.O. bzw. n.i.O. anzeigen zu lassen.
Leider steht derzeit "#Wert" in der Zelle, wenn keine IP-Adresse vorhanden ist.
Ich hätte da aber gerne auch ein n.i.O.
Kann mir da einer helfen? Ich hoffe es ist nicht zu kompliziert.
Vielen Dank und einen guten Start in die Woche,
Nautica