ich habe zur Berechnung eines aktuellen täglichen Kontostandes folgende Funktion geschrieben:
Function KontoBuchung(Datum As Date)
Tag = Day(Datum)
monat = Month(Datum)
zwischenwert = 0
For counter = 1 To 100
If Cells(counter + 1, 1) = Tag Then _
: zwischenwert = zwischenwert + (Cells(counter + 1, monat + 1) * Cells(counter + 1, 14))
Next counter
KontoBuchung = zwischenwert
End Function
In der Tabelle stehen folgende Daten:
Spalte A: Tag der Buchung z.B. 24 (für den 24. eines Monats) (A2:A101)
Spalte B bis M: Monatsfaktoren z.B. 1 oder 0 (B2:B101.....M2:M101)
Spalte N: Höhe der Buchung (z.B. 100,00) (N2:N101)
Wenn der Funktion ein Datum übergeben wird, gibt sie die Summe aller an diesem Tag durchgeführten Buchungen zurück. Die Funktion funktioniert! ;-)
Nun zu meinem Problem. Das Ergebnis der Funktion wird bei Veränderungen z.B. der Höhe der Buchung an einem Tag (in Spalte N) nicht aktualisiert! Erst wenn ich in die Zelle mit der Funktion klicke, aktualisiert sich das Ergebnis der Funktion.
Was kann ich einstellen um diese Aktualisierung zu automatisieren?
Hinweis: Im Menü Extra...Optionen...Berechnung, ist Automatisch ausgewählt!
Danke für Eure Hilfe!
Ingo