Range einer Funktion übergeben
24.09.2008 21:33:00
Markus
ich möchte eigentlich etwas ganz einfaches tun, scheitere aber schon daran. Eigentlich möchte ich der Funktion >Test
Public Function Test(Bereich As Range) As Boolean
Dim c As Range
For Each c In Bereich
Debug.Print c.Value
Next c
Test = False
End Function
Wenn ich die Funktion von einem Sheet aus aufrufe (z.B. =Test(A1:A4)) gibt es einen Fehler. Ich brauche Eure unkomplizierte Hilfe.
Gruß Markus