=Wenn Funktion und #Wert - Wie krieg ich das weg?
29.01.2018 08:50:07
Nautica
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
=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
Anzeige