Loop läuft nicht durch
01.08.2007 15:00:46
Martin
In meiner Arbeitsmappe habe ich die Tabellenblätter nach der jeweiligen Kalenderwoche (KW) benannt, um so leichter darauf zugreifen zu können. Änderungen zurückliegender KW sollen bis zur aktuellen KW aktualisiert werden. Dabei werden die Werte, die zwischen den Blättern übergeben werden, vorher auf den Blättern mithilfe der empfangenen Werte errechnet.
Ich habe eine Schleife geschrieben, die bei jedem Durchlauf dem nächsten Blatt, den Wert vom vorherigen Blatt zuweist. Doch leider läuft die Schleife überhaupt nicht. Wo ist hier der Fehler?
'Kalenderwoche des aktiven Blattes ermitteln
Dim kw As Integer
kw = ActiveSheet.Range("A5").Value
Do
'Kalenderwochenzahl in String umwandeln
Dim kwstr As String
kwstr = CStr(kw)
'die nächste Kalenderwoche ermitteln
Dim kw1 As Integer
kw1 = kw + 1
'aus der nächsten Kalenderwoche einen String machen
Dim kw1str As String
kw1str = CStr(kw1)
'Blatt "nächste Kalenderwoche" hat den Wert des Blatts der "letzten Kalenderwoche"
Worksheets(kw1str).Range("AK7:AK21").Value = Worksheets(kwstr).Range("AJ7:AJ21").Value
'Kalenderwoche um eins erhöhen
kw = kw + 1
'Schleifendurchlauf bis die Kalenderwoche gleich der aktuellen Kalenderwoche, die bereits vorher
ermittelt wurde
Loop Until kw <= kwrechn