Hilfe bei Schleifen
28.04.2016 11:10:31
Stephan
ich habe folgendes Problem:
So sieht mein Code aus:
Sub Ranking()
Dim WS1 As Worksheet, WS2 As Worksheet, WS4 As Worksheet
Dim iSpalte As Long, iiSpalte As Long
Dim letzteZeile As Long
Set WS1 = Worksheets("Input")
Set WS2 = Worksheets("Cashflow Calculation")
Set WS4 = Worksheets("Output")
'P50
letzteZeile = 5 'immer -1 von dem Wert wo angefangen werden soll
For iSpalte = 5 To WS1.Cells(10, WS1.Columns.Count).End(xlToLeft).Column
letzteZeile = letzteZeile + 1
For iiSpalte = 2 To WS2.Cells(4, WS2.Columns.Count).End(xlToLeft).Column
If WS2.Cells(4, iiSpalte) >= WS1.Cells(12, iSpalte) And _
WS2.Cells(4, iiSpalte)
Zur Erklärung: Es werden Jahreszahlen abgefragt wie z.B. 2015 mit einer gewissen Laufzeit. Diese werden dann unter einen Zeitstrahl in WS geschrieben. Soweit klappt es alles super.
Jetzt müsste ich noch mehr einbauen weiß aber nicht genau wie.
Ich müsste innerhalb der inneren Schleife einbauen, das er jede Zeile nicht einmal sondern 1000 mal durchlaufen soll und bei jedem Durchlauf der Reihe soll am Ende der Wert aus E1 in WS2 in die Spalte B,C,D,....4:B,C,D,...1003 in WS4 reingeschrieben werden. Da die Werte innerhalb einer hinterlegten Verteilung varieren muss ich das Ergebnis dukumentieren und später auswerten.
Könnt ihr mir da weiterhelfen?
LG Stephan