Kann man Excel dazu bringen, auch selbstgeschriebene VBA-Funktionen automatisch neu zu berechen? Bisher muss ich immer Strg-Alt-F9 drücken...
Danke.
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
Function TrivialSumme(ByVal Werte As Range)
Dim s As Double, w As Variant
For Each w In Werte
s = s + w
Next
TrivialSumme = s
End Function