ich habe eine Arbeitsmappe mit mehreren Blättern und folgender benutzerdefinierter Formel:
Function sum_gew(arange As Range, sumcolumn As Range, art As Long) As Double
'1=normal 2=ohne Auftrag
Dim arow As Long, acolumn As Long, i As Long, sumcol As Long
arow = arange.Row
acolumn = arange.Column
sumcol = sumcolumn.Column
i = arow + 1
sum_gew = 0
Do Until Cells(i, acolumn).Value "" Or Cells(i, 1).Value = "Gesamtergebnis"
If art = 1 Then
sum_gew = sum_gew + Cells(i, sumcol).Value
End If
i = i + 1
Loop
'Objekt addieren
sum_gew = sum_gew + Cells(arow, sumcol).Value
'Immer neu berechnen
Application.Volatile
Diese funktioniert auch super solange ich in dem Blatt bewege, wo die Formel verwendet wird.
Wechsle ich in anderes Blatt so läuft und aktualisieren per F9 (bei manueller Berechnung), so läuft diese Formel ewig.
Ursache ich wahrscheinlich die Verwendung von Cells ohne Angabe des Blattes.
Was muss ich tun damit die Formel korrekt funktioniert bzw. gegen was kann ich das cells ersetzen?
Danke Euch schomal
VG SteffenS