MsgBox wird immer angezeigt
19.02.2014 09:40:07
Frank
ich bin gerade dabei ein paar Funktionen in VBA zu hinterlegen. Da ja leider nicht die Möglichkeit besteht Hilfetexte für eigene Funktionen anzuzeigen, möchte ich bei einer fehlerhaften Eingabe eine MsgBox anzeigen lassen. Mein Problem ist gerade das die MsgBox obwohl ich "P" oder "PR" eingegeben habe immer angezeigt wird aber wieso?
Function alpha(eco As Double, ecu As Double, ec As Double, t As Double, W As String) As Double
If W = "P" Then
alpha = Alpha_P(eco, ecu, ec, t)
End If
If W = "PR" Then
alpha = Alpha_PR(eco, ecu, ec, t)
Else
MsgBox "Bitte geben sie für W --> P oder PR ein!", 0, "Eingabe fehlerhaft!"
End If
End Function
Könnte mir jemand sagen was ich falsch mache?Vielen Dank und viele Grüße
Frank