Ich möchte herausfinden ob eine zelle 4 zahlen enthält. Kann mir jemand sagen wie ich das mache?
Danke
Sub John()
If Len(Range("A1").Text) = 4 And _
Application.IsNumber(Range("A1").Value) = True Then
MsgBox "Zellwert ist eine vierstellige Zahl !"
Else
MsgBox "Zellwert ist keine vierstellige Zahl !"
End If
End Sub