Habe eine Tabellenfunktion geschrieben, die mir die Summe aller Zahlen in der gleichen Zeile ausgibt. Kann nicht die Summen-Funktion nehmen, da in den Feldern Wahr/Falsch oder eine Zahl steht.
Es Funktioniert auch alles prima, bis auf die Tatsache, dass bei großen Summen (z.B. 100000) anstatt die korrekte Summe #Wert ausgegeben wird, sprich die Berechnung in meiner Funktion abbricht.
Hier der Code:
Function berechneAuswertung(zelle As Range)
Application.Volatile
currentZeile = zelle.Row
Dim currentSpalten As Range
Set currentSpalten = Tabelle2.UsedRange.Columns
Dim rueckgabewert As Integer
rueckgabewert = 0
Dim currentCell As Range
For i = 3 To currentSpalten.count Step 1
Set currentCell = Tabelle2.Cells(currentZeile, currentSpalten(i).Column)
'rueckgabewert = rueckgabewert + Application.WorksheetFunction.N(currentCell.Address)
If currentCell.Value = „Wahr“ Then
rueckgabewert = rueckgabewert + 1
Else
rueckgabewert = rueckgabewert + currentCell.Value
End If
'rueckgabewert = Application.WorksheetFunction.N(„C10“)
Next i
berechneAuswertung = rueckgabewert
End Function