Office: Prüfung, ob Zelle numerisch

Wie müsste diese Prozedur lauten wenn statt der Active Cell die Prüfung auf bspw. A1 vorgenommen werden sollte? Leider fehlt es mir an Grundlagen um genau zu verstehen, wie VBA funktioniert.


Sub NumerischerWertInZelle()
If Not Application.IsNumber(ActiveCell) Then
MsgBox "Zelle enthält kein numerisches Zeichen"
End If
End Sub

Gruß und Dank vom Greenhorn

:)

 

Hi,

Code:

 

Nein bitte die Sub nur bezogen auf Zelle A1, nicht auf aktive Zelle.
Sonst würde meine Frage ja keinen Sinn machen:-) Danke

 

HAllo

Das geht dann so:
If Not Application.IsNumber(Sheets("Tabelle1").Range("A1")) Then _
MsgBox "Zelle enthält kein numerisches Zeichen"


ransi

 

Hallo zusammen,

vielleicht noch der Hinweis, dass die Fehlermeldung Zelle enthält kein numerisches Zeichen irreführend ist. Die Zelle kann nämlich durchaus numerische Zeichen enthalten, denn es wird geprüft, ob die Zelle ausschließlich numerische Zeichen enthält.

Wenn die Zelle also ein numerisches Zeichen und ein nicht numerisches Zeichen enthält, ergibt die Prüfung das Ergebnis FALSCH und es erscheint obige Fehlermeldung, obwohl die Zelle tatsächlich ein numerisches Zeichen enthält.

Gruß Ingolf