Excel-Inside Solutions - Zellinhalt auf Formel, Zahl, Datum, Fehler oder Text prüfen

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

Drucken

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

Erfassen Sie die Prozedur in einem leeren Code-Modul.

Relevante Artikel

Spaltenbeschriftung auslesen
In diesem Beispiel zeigen wir Ihnen, wie sich die Spaltenbeschriftung, also die Buchstaben der Spalten z. B. A, B, C, etc. über eine benutzerdefinierte Funktion (UDF) auslesen lässt. Mit Hilfe der in...
Zell-Selektion auf nicht geschützte Zellen beschränken
101079 Dieses Makro beschränkt die Zell-Auswahl auf ungeschützte Zellen. Dazu ist es notwendig, dass der Blattschutz gesetzt ist. Wenn Sie dieses Makro ausführen, können Sie nur noch die...
Einträge nach Zellfarbe sortieren
101071 Folgendes Makro sortiert die Zellen A1 bis A10 nach Zellfarben in aufsteigender Reihenfolge.Maßgebend für das sortieren ist die Farbzahl (Index). Je größer der Farbindex desto weiterhinten...
Zellen für eine einmalige Eingabe beschränken
In diesem Beispiel zeigen wir Ihnen, wie Sie eine Zelle beziehungsweise einen Zellbereich für eine einmalige Eingabe von Text oder Zahlen beschränken können. In diesem Beispiel soll der Zellbereich B3:E9...
ActiveCell: Fragen und Antworten
101001 Frage im Spotlight-Forum zum Befehl ActiveCell: Hallo, warum funktioniert denn folgender VBA-Code nicht? If ActiveCell = "exportiert" Then Sheets("Leistungsabruf").ActiveCell.Value = ""...

Neue Beiträge

Meist gelesen

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

Relevante Artikel

Programmierung