Schleife funktioniert nicht
17.10.2005 13:52:57
Marco
ich habe folgende Schleife programmiert:
Dim i As Long
Dim j As Integer
Dim k As Integer
Dim sum As Long
k = CLng(Label10.Caption)
For j = 1 To k
i = CLng(CDate(TextBox15.Value))
If Weekday(i) = 1 Or Weekday(i) = 7 Or WorksheetFunction.CountIf (Worksheets(3).Range("A:A"), CLng(CDate(TextBox15.Value))) > 0 Then
k = k + 1
sum = sum + 1
Else
sum = sum + 1
End If
i = i - 1
Next j
Sheets(2).Cells(1, 2).Value = sum
Diese Schleife ist Bestandteil einer anderen Anweisung, die aber funktioniert. Also nicht wundern, warum "Sub" bzw. "EndSub" fehlt.
Die Variable "k" entspricht die Anzahl der benötigten Arbeitstage des Prozesses; Variable "i" ist das Enddatum, an dem der Prozess beendet sein muss.
Mit dieser Schleife will ich alle Tage zählen, bis die Anzahl an Werktagen erreicht ist, die der Prozess benötigt.
Wenn das jeweilige Datum ein Samstag oder ein Sonntag ist, oder wenn der Tag auf ein Feiertag fällt, welche in einer seperaten Spalte aufgeführt sind, soll in der "For-Schleife" das "k" in "j=1 to k" um eins erhöht werden und die Varable "sum" um den Wert 1 erhöht werden.
Wenn das jeweilige Datum ein Werktag ist, soll nur die Variable "sum" um den Wert 1 erhöht werden.
Die Variable "sum" gibt am Ende die Gesamtanzahl der Tage zurück, die der Prozess benötigt, incl. Wochenende und Feiertage.
Jetzt mein PROBLEM:
Wenn ich mir zum Test den Wert von "sum" in einer Zelle anzeigen lasse, gibt mir Excel den Wert "Null" zurück.
Kann mir jemand sagen, woran das liegt ?
Ich bin um jede Hilfe sehr dankbar.
Gruss Marco