Excel VBA Funktion Variable als Parameter

[tobias_2]

Guten Mittag,

ich möchte eine Funktion schreiben, bei der eine String Variable als Parameter eingelesen wird. Und je nach Wert einen neuen Wert zugewiesen bekommt.

sieht bislang so aus, leider ohne Erfolg (die ausgegebene MsgBox bleibt leer):

Function Zuweisung(x) 

    Select Case True
        Case x Like "eins"
            x = "Fall 1 tritt ein"
        Case x Like "zwei"
            x = "Fall 2 tritt ein"
        Case x Like "drei"
            x = "Fall 3 tritt ein"
    End Select

End Function

Private Sub CommandButton1_Click()

eingabe = "eins"
MsgBox(Zuweisung(eingabe))

End Sub

Vielleicht muss ich auch sowas wie return einbauen? Möglicherweise muss ich statt einer Function auch eine Sub verwenden und bin so völlig auf dem Holzweg?! Naja, hoffe ihr könnt mir schnell helfen..

 

[Knufu]

Versuche es mal mit

Dim Wort As String
    Wort = InputBox("Eingabe:")

Die Variable "Wort" enthält nun den String welchen du nun noch in die andere Funktion beamen musst.
Oder du machst alles in eine Funktion.

 

[Gizmo0815]

Function Zuweisung(x)
Select Case True
Case x Like "eins"
Zuweisung = "Fall 1 tritt ein"
Case x Like "zwei"
Zuweisung = "Fall 2 tritt ein"
Case x Like "drei"
Zuweisung = "Fall 3 tritt ein"
End Select
End Function

Private Sub CommandButton1_Click()
eingabe = "eins"
MsgBox (Zuweisung(eingabe))
End Sub

 

[tobias_2]

Function Zuweisung(x)
 Select Case True
 Case x Like "eins"
 Zuweisung = "Fall 1 tritt ein"
 Case x Like "zwei"
 Zuweisung = "Fall 2 tritt ein"
 Case x Like "drei"
 Zuweisung = "Fall 3 tritt ein"
 End Select
 End Function

 Private Sub CommandButton1_Click()
 eingabe = "eins"
 MsgBox (Zuweisung(eingabe))
 End Sub

Genau War schon selber drauf gekommen