Automatische Tabellen-Aktualisierung mit VBA
08.08.2006 14:39:52
Günther
hab zwar schonmal gepostet aber leider funktionierts noch immer nicht...
Hab ein Makro geschrieben das folgende Funktionalität aufweist:
ein bestimmter Zellbereich wird solange durchlaufen, bis die Summe der Zellinhalte den Wert aus Zelle C4 erreicht hat. Dannach wird der Wert aus der Zelle mit den Anzahl der durchlaufenen Schleifen (= jahre) multipliziert und durch den Vergleichswert aus C4 dividiert.
Das funktioniert alles recht gut, nur wenn ich dann in der Tabelle einen Eingabewert zur Berechnung ändere, ändert sich nix am Endergebnis. Nur wenn ich das Makro wieder händisch im Editor ,aktiviere aktualisiert sich auch das Ergebnis. Was kann ich machen, dass sich das Ergebnis laufend (bei jeder Änderung eines Zellenwerts) automatisch aktualisiert?
Nachdem meine VBA-Kenntnisse sehr begrenzt sind bitte, wenn möglich, meinen code ergänzen..
Schönen Dank schon im voraus!!!
Gümther
Sub Schleife()
Dim wert As Double
Dim jahre As Double
Dim dauer As Double
jahre = 1
Range("N9").Select
wert = Range("N9").Value
Do While wert < Range("C4").Value
ActiveCell.Offset(1, 0).Activate
wert = wert + ActiveCell.Value
jahre = jahre + 1
Loop
dauer = Range("C4").Value * jahre
dauer = dauer / wert
Range("H4").Value = dauer
End Sub