Fehlerabfangen bei Rang
23.11.2006 14:02:41
Markus
ich übergebe einer Funktion einen Zellenbereich (z.B. A1:A5). Zur Vermeidung von Fehlern möchte ich zunächst überprüfen, ob der Zellenbereich die richtige Anzahl Zellen (Argumente)aufweist. Kann mir jemand sagen, wie ich das hinbekomme?
Gruß Markus
Code:
Public
Function ParamÜbergabe(Bereich As Range)
Dim rng As Range
'Hier überprüfen, ob richtige Anzahl Argumente übergeben wurde
For Each rng In Bereich
Debug.Print rng
Next 'rng
End Function