AW: an die Stimme aus dem Background
08.04.2005 14:08:36
Thomas
Hallo Luc
Hmm, nach weiteren Experimenten stellt sich mein Problem nun anders dar.
Anscheinend berechnet XL die Funktion(sergebnisse) tatsächlich neu, wenn sich an den Ausgangsdaten im Tabellenblatt was ändert.
Aber es bleibt ein anderes Problem: Ich verwende die Funktion (die ich in eine XLA gepackt habe) in mehreren Blättern einer Datei. Wenn nun neu berechnet wird (wodurch auch immer), ändern sich die Ergebnisse in allen Blättern, d.h. die Ergebnisse in allen sind nur passend zum aktiven Blatt. Die Blätter sind alle identisch aufgebaut, nur die Ausgangsdaten sind unterschiedlich.
Hier mal die Funktion:
Function Rangfolge(Kriterium As Range, Daten As Range, Optional Aufsteigend As Boolean = False)
Dim Feld() As Variant, k As Integer, w As Variant, r As String, op As String
'Bereiche müssen gleiche Größe haben
If Kriterium.Count <> Daten.Count Then
Rangfolge = "#WERT"
Exit Function
End If
ReDim Feld(1 To Kriterium.Count, 0 To 1)
k = 1
For Each w In Kriterium
Feld(k, 0) = w
k = k + 1
Next
k = 1
For Each w In Daten
Feld(k, 1) = w
k = k + 1
Next
QuickSort Feld, 1, Kriterium.Count, 0, Aufsteigend
If Aufsteigend Then op = "<" Else op = ">"
For k = 1 To Kriterium.Count
If k > 1 Then r = r & op
r = r & Feld(k, 1)
Next
Rangfolge = r
End Function
Danke für jeden Tip
Thomas (der Hintergündige)