Benutzerdefinierte Array-Function
16.05.2002 09:16:50
Jochen
ich verwende benutzerdef. Funktionen, die ein Array übergeben bekommen und selbst ein (genauso großes) Array zurückliefern. Aus irgendeinem Grund arbeiten diese Funktionen nur bis zu einer Array-Größe von 5460 Elementen. Bei jeder größeren Elementzahl liefert die Funktion lediglich "#WERT!". Kennt jemand die Ursache oder weiß jemand Abhilfe?
Der Algorithmus entsprich dem von Microsoft vorgeschlagenen; das ganze sähe z.B. für ein Programm zum Quadrieren einer Zahl so aus:
Function Quadrat(Bereich As Range) As Variant
Dim temp As Variant
Dim i As Integer, j As Integer
temp = Bereich.Value
If IsArray(temp) Then
For i = 1 To UBound(temp, 1)
For j = 1 To UBound(temp, 2)
temp(i, j) = temp(i, j) ^ 2
Next j
Next i
Else
temp = temp ^ 2
End If
Quadrat = temp
End Function