Hi Ihr,

hab eine Funktion geschrieben, welche eine Tabelle durchläuft, in welcher Sie

in der einen Spalte nach einem bestimmten Kriterium sucht. Ist dieses Kriterium erfüllt

soll ein Wert aus einer anderen Spalte auf addiert werden.

Public Function laenge(ByVal DN As Integer) As Variant

Application.Volatile

Dim summe As Single

summe = 0

For i = 3 To 23

If Range("E" & i) = DN Then
summe = summe + Range("B" & i)
End If
    
Next i

If summe = 0 Then
laenge = ""
Else
laenge = summe
End If


End Function

Dies funktioniert soweit auch ganz gut. Das Problem tritt dann auf, wenn ich in der zweiten Tabelle etwas ändere.

Dann wird nämlich die Berechnung zurückgesetzt und wird erst durch das Wechseln zu Tabellenblatt 1 und das

Drücken von F9 ausgeführt.

Habt ihr eine Idee an was das liegen könnte?