Anzahl Paramter
22.11.2006 08:35:59
Markus
ich übergebe einer Funktion einen "Range". Nun möchte ich als erstes überprüfen, ob die richtige Anzahl der Werte übergeben wurde. Leider ist es so, dass es nichteinmal möglich ist die Eingabe zu beenden - die Funktion meldet sich sofort mit der Msgbox und steigt dann aus. Kann mir jemand sagen, wie ich das in den Griff bekomme.
Danke, Markus
Code:
Public
Function ParamÜbergabe(Bereich As Range)
Dim rng As Range
If Bereich.Count <> 5 Then
MsgBox "Falsche Anzahl Parameter!"
Exit Sub
End If
For Each rng In Bereich
Debug.Print rng
Next 'rng
End Function