Else Zweig mit zwei Anweisungen
26.05.2016 20:37:00
Rene
ich habe folgenden Code, der einfach nicht so funktioniert wie ich es beabsichtige.
Dim AnzahlvonEintragstagen As Byte
Dim i As Variant
Dim Tagzähler, Summand As Integer
Summand = 0
For Tagzähler = 0 To DateDiff("d", ComboBox4, ComboBox5)
If IsDate(Cells(5, ActiveCell.Column + Tagzähler + Summand)) Then
Cells(ActiveCell.Row, ActiveCell.Column + Tagzähler + Summand) = ComboBox3
Else
Tagzähler = Tagzähler + 1 And Summand = Summand + 1
End If
If Format(IsDate(Cells(5, ActiveCell.Column + Tagzähler + Summand)), "dd:mm") = "31.12." Then
Tagzähler = DateDiff("d", ComboBox4, ComboBox5)
End If
Next
Wenn ich bei dem fettgedruckten Codeteil nur eine Anweisung angebe funktioniert es und es wird richtig gezählt. Wenn ich beide Anweisungen lasse, so setzt mir der Code nach "Next" den Tagzähler auf 0.
Hat jemand eine Idee?
René