Arrayformel gesucht
22.05.2009 12:39:52
Dieterlem
ich bin auf der suche nach einer Arrayformel. Ich habe mir eine eigene Function mit VBA programmiert. Jedoch dauert es zu lange, bis alle (über 200x) functionen _ berechnet sind. Vieleicht kann mir jemand von euch helfen. Mein VBA-Code lautet folgendermaßen:
Function STAT(Gerät As String, Wert As String) As Integer
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
STAT = 0
For i = 10 To 185
If Sheets(5).Cells(i, 7) = Gerät And Sheets(5).Cells(i, 9) = Wert Then STAT = STAT + 1
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Function
Gruß
Dieterlem