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

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}