Benutzerfunktion, Range zurückgeben, ohne Argument
29.06.2004 12:37:45
Christian
ich habe ein kleines Problem, ich habe es bereits mit eurer Hilfe geschafft einen Bereich von Zellen in einen anderen zu kopieren und dabei mit 3 zu multiplizieren.
Allerdings klappt die einfacherer Variante nicht, also einfach eine Benutzerfunktion die z.B. eine Range zurückliefert, die alle Werte als 5 hat, nur KEINE ARGUMENTE braucht.
Beispiele:
Mal 3 nehmen klappt:
Function test(xRange As Range)
Dim xArray2D()
Dim x As Integer, y As Integer
xArray2D = xRange
For x = LBound(xArray2D, 1) To UBound(xArray2D, 1)
For y = LBound(xArray2D, 2) To UBound(xArray2D, 2)
xArray2D(x, y) = xArray2D(x, y) * 3
Next y
Next x
test = xArray2D
End Function
Eine Zelle auf 999 setzen geht auch
Function test(xRange As Range)
Dim xArray2D()
xArray2D = xRange
xArray2D(1,1) = 999
test = xArray2D
End Function
Nicht klappen tut (super deutsch)
Function test()
Dim xArray2D()
xArray2D(1, 1) = 99
test = xArray2D
End Function
Habs auch schon mit leerer Range versucht usw..
Das Problem ist, das ich ohne die übergebene Range das richtige Format für das Array irgendwie nicht hin bekomme, bin für tips, vor allem ein kurzes Beispiel dankbar....