Private Sub CommandButton1_Click()
Dim TRange As Variant
TRange = Sheets("Test").Range("I9:I20").Value
Public Function Testvalue(..., TRange As Variant, ...) As Variant
und sobald ich TRange in der Funktion anspreche, kommt ein Fehler
High = TRange.Cells.Count (Laufzeitfehler 424 Objekt erforderlich)