Prüfen ob Zelle text oder Zahl enthält

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Prüfen ob Zelle text oder Zahl enthält
von: Grüni
Geschrieben am: 24.02.2005 09:35:45
Hallo Excel VBA
Möchte Prüfen ob in einer Zelle weder ein Text oder eine Zahl steht


Sub ....
if not isnumeric("A1")  ... ? ? then
else 
...
end if
End Sub

wie mache ich das ?

Gruß Grüni
Bild

Betrifft: AW: Prüfen ob Zelle text oder Zahl enthält
von: Matthias G
Geschrieben am: 24.02.2005 09:45:03
Hallo Grüni,
If IsNumeric([A1].Value) Then
...
Else
...
End If
Gruß Matthias
Bild

Betrifft: AW: noch nicht ganz
von: grüni
Geschrieben am: 24.02.2005 10:07:42
Hallo Matthias
Für die Zahl funktioniert wie geht`s es mit text
Gruß grüni
Bild

Betrifft: AW: Prüfen ob Zelle text oder Zahl enthält
von: Roland Hochhäuser
Geschrieben am: 24.02.2005 10:02:14
Hallo Grüni,
damit erwischst du die Inhalte der gerade aktiven Zelle:

Sub InhaltePrüfen()
If ActiveCell.HasFormula Then
MsgBox "Formel"
ElseIf IsNumeric(ActiveCell) And ActiveCell <> "" Then
MsgBox "Zahl"
ElseIf IsError(ActiveCell) Then
MsgBox "Fehlermeldung"
ElseIf ActiveCell <> "" Then
MsgBox "Text"
ElseIf ActiveCell = "" Then
MsgBox "Völlig leer"
End If
End Sub

Gruß Roland
Bild

Betrifft: Danke für die Hilfe
von: Grüni
Geschrieben am: 24.02.2005 10:12:19
Hallo Roland
vielen dank für die Infos, das hilft
Hallo Matthias,
auch dir vielen dank für die Hilfe, mit der Info von Roland kann ich mein Problem lösen

Gruß Grüni
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nur einzelne Worksheets drucken"