oder soll ich mir selber ne funktion bauen!?
cu
Sub Gerald1()
If Application.IsNumber(Range("A1").Value) = True Then
MsgBox "Das ist ein Zahlen-String !"
Else
MsgBox "Das ist kein Zahlen-String !"
End If
End Sub
Sub Gerald2()
If IsNumeric(Range("A1").Value) = True Then
MsgBox "Das ist ein Zahlen-String !"
Else
MsgBox "Das ist kein Zahlen-String !"
End If
End Sub