Case Select Rückgabe
Andy
ich habe ein Problem mit Select Case, leider bekomm ich nicht die gewünschten Meldungen. Kann mir hier jemand weiterhelfen. Als Meldung bekomm ich bei Y Y immer Auto, ansonsten XXX/YYY.
Kann mir jemand sagen was ich falsch mache, ich steh grad voll auf dem Schlauch. Meiner Meinung nach sollte das funktionieren. Schon einmal vielen Dank
Function Testfunktion(sTest1 As String, sTest2 As String) As String
Dim Meldung As String
Dim Test As Variant
Select Case Test
Case (sTest1 = "Y" And sTest2 = "Y")
Meldung = "XXX/YYY"
Case (sTest1 = "Y" And sTest2 = "N")
Meldung = "Auto"
Case (sTest1 = "N" And sTest2 = "Y")
Meldung = "YYY"
Case (sTest1 = "N" And sTest2 = "N")
Meldung = "ZZZ"
Case Else
Meldung = "XXXXXX"
End Select
Testfunktion = Meldung
End Function
Anzeige