| |||||||||||||||||
Function benmittel(arg As String, rng As Range) As Double
Dim zelle As Range
Dim zeichen As String
Dim zwischen As Double
Dim intZeichen As Integer, intZähler As Integer
Dim arg2 As Long
If InStr(1, arg, Chr(60)) > 0 Then zeichen = "<"
If InStr(1, arg, Chr(61)) > 0 Then zeichen = "="
If InStr(1, arg, Chr(62)) > 0 Then zeichen = ">"
If zeichen = "" Then
benmittel = "Kein Argument übergeben"
Exit Function
End If
If zeichen = "<" Then intZeichen = 60
If zeichen = "=" Then intZeichen = 61
If zeichen = ">" Then intZeichen = 62
arg2 = Right(arg, Len(arg) - InStr(1, arg, Chr(intZeichen))) * 1
For Each zelle In rng
Select Case zeichen
Case "<"
If zelle < arg2 Then
zwischen = zwischen + zelle
intZähler = intZähler + 1
End If
Case "="
If zelle = arg2 Then
zwischen = zwischen + zelle
intZähler = intZähler + 1
End If
Case ">"
If zelle > arg2 Then
zwischen = zwischen + zelle
intZähler = intZähler + 1
End If
End Select
Next
benmittel = zwischen / intZähler
End Function
| Tabelle1 | ||||||||||||||
| ||||||||||||||