Office: VBA For Schleife: Werte in EXCEL zwischen Speichern

Hallo liebe Community,
ich habe leider ein kleines Problem und habe die Hoffnung, dass ihr mir helfen könnt.
Ich sitze gerade an einer Excel welche bestimmte werte ausrechnen soll.
Mein Gedanke war Zwischenrechnungen in Excel durchzuführen und die Daten per VBA zu verarbeiten.
Sprich meine VBA schreibt einen Wert in eine Zeile und verschiedene Funktionen greifen auf diesen Wert zurück. Die Ergebnisse der Funktionen lese ich später in der Schleife wieder ein und wiederhole dies ein paar mal.
Leider klappt die ganze Sache nur beim ersten mal und beim weiteren Durchlauf werden nur noch nullen angezeigt.
Mein Code sieht wie folgt aus:
For Counter = 1 To Laufzeit
Worksheets("Normalversteuerung").Cells(18, 11).Value = GewinnVS
GWST = Worksheets("Normalversteuerung").Cells(21, 11).Value
GWSTA = Worksheets("Normalversteuerung").Cells(22, 11).Value
EKaGB = Worksheets("Normalversteuerung").Cells(20, 11).Value
EKsT = Worksheets("Normalversteuerung").Cells(19, 11).Value
GWSTEF = GWST - GWSTA
GESTS = EKsT + GWSTEF
ABetrag = GewinnVS - GESTS
GABetrag = GABetrag + ABetrag
GewinnVS = GABetrag * Rendite

Next Counter

Worksheets("Normalversteuerung").Cells(5, 9).Value = EKsT
Worksheets("Normalversteuerung").Cells(10, 9).Value = GWST
Worksheets("Normalversteuerung").Cells(12, 9).Value = GWSTA
Worksheets("Normalversteuerung").Cells(14, 9).Value = GWSTEF
Worksheets("Normalversteuerung").Cells(21, 9).Value = GABetrag

End Sub

Wisst ihr vielleicht weiter? Oder ist mein Vorgehen gar nicht möglich?

Vielen Dank für eure Hilfe!!

Viele Grüße!

:)

 

Dadurch, dass du in deiner Schleife die Variable, als den "Counter" nicht beruecksichtigst gehe ich davon aus, dass deine Schleife falsch gesetzt ist!?
Denn die schleife macht so wie sie ist keinen Sinn, da sie von 1 bis zu "Laufzeit" immer das selbe macht.

Kannst du ein wenig mehr von deinem Makro zeigen oder wars das schon?

 

Das ist mein komplettes Makro. Am Anfang werden Werte übernommen welche vorher ausgerechnet worden sind, da dort noch mehr Faktoren berücksichtig worden sind aber danach soll alles nur noch über das Makro laufen.

Schon mal Danke für die schnelle Antwort *Smilie

///
Private Sub AnlageNormalversteuerung()
GewinnVS = Worksheets("Normalversteuerung").Cells(23, 8).Value
GABetrag = Worksheets("Normalversteuerung").Cells(21, 8).Value
Laufzeit = Worksheets("Normalversteuerung").Cells(13, 2).Value
Dim EKsT As Long
Dim GWST As Long
Dim GWSTA As Long
Dim GWSTEF As Long
Dim GESTS As Long
Dim ABetrag As Long
Dim Rendite As Long
Dim EKaGB As Long





For Counter = 1 To Laufzeit
Worksheets("Normalversteuerung").Cells(18, 11).Value = GewinnVS
GWST = Worksheets("Normalversteuerung").Cells(21, 11).Value
GWSTA = Worksheets("Normalversteuerung").Cells(22, 11).Value
EKaGB = Worksheets("Normalversteuerung").Cells(20, 11).Value
EKsT = Worksheets("Normalversteuerung").Cells(19, 11).Value
GWSTEF = GWST - GWSTA
GESTS = EKsT + GWSTEF
ABetrag = GewinnVS - GESTS
GABetrag = GABetrag + ABetrag
GewinnVS = GABetrag * Rendite

Next Counter



Worksheets("Normalversteuerung").Cells(5, 9).Value = EKsT
Worksheets("Normalversteuerung").Cells(10, 9).Value = GWST
Worksheets("Normalversteuerung").Cells(12, 9).Value = GWSTA
Worksheets("Normalversteuerung").Cells(14, 9).Value = GWSTEF
Worksheets("Normalversteuerung").Cells(21, 9).Value = GABetrag

End Sub

 

Okay ohne EUR Zahlen ist die Berechnung schwer nachzuvollziehen *biggrin.gif*

Aber ein Tipp: Gehe in dein Macro und lasse es mit F8 Schritt fuer Schritt laufen und blende dabei das Ueberwachungsfenster ein.
Ansicht --> Ãœberwachungsfenster (laut google... Ich habe hier nur die Englische Version von Excel dort ist es View --> Locals Window)
Hier siehst du welche Werte den Variablen zugeordnet werden und dann kannst du genau nachvollziehen was gerade gemacht wird.

 

Dank der Ãœberwachung habe ich den Fehler gefunden.
Vielen Dank für die Hilfe! Man sollte eben auch alle Werte auslesen die man brauch :-D Vielleicht ist es schon ein wenig zu spät...