Schleife in der Schleife
Martin
Ich habe ein kleines Problem mit einer Schleife in der Schleife, vermutlich muss man nur eine Klenigkeit ändern: Ich überprüfe, ob in Spalte 2 im Register "YTD_per_Month" "EUR/CHF" steht. Wenn ja, soll er drei bestimmte Werte in das Register "Hilfstabellen" kopieren. Das Problem ist, dass ich 2 Laufindices brauche, 1x um die ganzen Zeilen in YTD_per_Month zu überprüfen um ggf die Werte zu kopieren und 1x um im Register Hilfstabelle immer eine Zeile nach unten zu gehen. Hier ist mein Code bis jetzt:
'EUR/CHF YTD_per_Month
For i = 1 To 100
If ws_YTD_per_Month.Cells(i, 2) = "EUR/CHF" Then
For j = 3 To 14
'Summe CCY1+
ws_Hilfstabellen.Cells(j, 2) = ws_YTD_per_Month.Cells(i, 4)
'Summe CCY1-
ws_Hilfstabellen.Cells(j, 3) = ws_YTD_per_Month.Cells(i, 6)
'Summe CCY1-
ws_Hilfstabellen.Cells(j, 4) = ws_YTD_per_Month.Cells(i, 8)
Next j
End If
Next i
Bisher schreibt das Makro in ALLE Zeilen der Hilfstabelle das Ergebnis des letzten Treffers von YTD_per_Month...
Vielen Dank für eure Hilfe!