Rüchgabewert einer Funktion
26.04.2005 09:29:00
MikeS
ich möchte die Verkäufer-Nr = strVKNR auslesen und den Verkäufernamen = strVKName erhalten.
Leider wird der Wert der Funktion nicht übergeben!
Wo liegt der Fehler (evtl. beim Gültigkeitsbereich der Variablen)?
Vielen Dank
Mike
Public strVKNR As String
Public strVKName As String
...
strVKNR = Cells(lngAktZeile, 8)
strVKName = VKName_auslesen(strVKNR)
...
Private Function VKName_auslesen(strVKNR As String)
Select Case strVKNR
Case 1
strVKName = "Bergmann"
Case 2
strVKName = "Jukszat"
Case 3
strVKName = "Cramer"
Case Else
End Select
End Function
Anzeige