Hallo zusammen,
habe eine kurze Frage zu einer Funktion. Dieser Test funktioniert nicht. Keine Fehlermeldung aber Ergebnis ist immer Null.
Public Function Test(Wert As String) Select Case Wert Case Is = Left(Wert, 1) = "H": Test = "Hallo" Case Is = Left(Wert, 1) = "A": Test = "Tach" End Select End Function
Mittels If Then else geht es aber. Weiß jemand warum? Kann das überhaupt mit Select Case klappen?
Public Function Test2(Zelle As String) If Left(Zelle, 1) = "H" Then Test2 = "Hallo" ElseIf Left(Zelle, 1) = "A" Then Test2 = "Tach" Else End If End Function
Vielen Dank für einen Tipp,
Gruß Jürgen