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

101075

Dieser Code prüft die aktuelle Zelle auf deren Inhalt.
Es wird ausgegeben welcher Inhalt enthalten ist. Unterschieden werden in VBA folgende Inhalte:

• Formel
• Zahl
• Datum
• Fehler
• Text

Die Ausgabe erfolgt per MsgBox!

Erfassung der Prozedur in einem Code-Modul:

Public Sub 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