|
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?
|