Zellinhalt auf Formel, Zahl, Datum, Fehler oder Text prüfen

In diesem Beispiel zeigen wir Ihnen, wie sich ganz einfach ermitteln lässt, welcher Datentyp sich in einer Zelle befindet.
VBA unterscheidet dabei grundsätzlich folgende Inhalts-Typen:

• Formel
• Zahl
• Datum
• Fehler
• Text

Mit Hilfe des folgenden VBA-Codes wird der Inhalt der gerade aktuellen Zelle analysiert und über eine Message-Box ausgegeben:

PublicSub zellinhalt_prüfen()
'prüfen, ob in einer Formel eine Zahl, eine Formeln, ein Datum
'ein Fehler oder Text steht
'geprüft wird die aktive Zelle
If ActiveCell.HasFormula = True Then
 MsgBox "Formel"
 ElseIf IsNumeric(ActiveCell) Then
 MsgBox "Zahl"
 ElseIf IsDate(ActiveCell) Then
 MsgBox "Datum"
 ElseIf IsError(ActiveCell) Then
 MsgBox "Fehler"
 Else: MsgBox "Text"
End If
End Sub
{/codecitation}