|
Möchtest Du lediglich auf die beiden Textaussagen "hi" oder "lo" prüfen, unabhängig, ob Gross oder Kleinschreibung, könntest es so formulieren:
Select Case True
Case StrComp("hi", ActiveCell.Value, vbTextCompare) = 0, StrComp("lo", ActiveCell.Value, vbTextCompare) = 0
'*** Ist hi oder HI oder Hi oder hI
'*** Ist lo oder LO oder Lo oder lO
Case Else
'*** ist was anderes als hi oder lo usw
End Select
Oder anders gedacht:
Möchtest Du prüfen, ob mit dem vorliegenden Wert gerechnet werden kann, könntest es so formulieren:
Select Case True
Case VBA.IsNumeric(ActiveCell.Value)
'*** Ist eine Nummer
Case Else: Debug.Print "keine nummer"
'*** Ist keine Nummer
End Select
Oder Du machst es ganz anders :)
|