Guten Morgen,
ich habe mit nachfolgenden Code ein Problem:
im bMonat As Byte
Dim bCount As Byte
Dim bFraMonat As Byte
For bFraMonat = 9 To 10
Select Case Cells(19, bFraMonat)
Case Is = "Januar"
bMonat = 1
Case Is = "Februar"
bMonat = 2
Case Is = "März"
bMonat = 3
Case Is = "April"
bMonat = 4
Case Is = "Mai"
bMonat = 5
Case Is = "Juni"
bMonat = 6
Case Is = "Juli"
bMonat = 7
Case Is = "August"
bMonat = 8
Case Is = "September"
bMonat = 9
Case Is = "Oktober"
bMonat = 10
Case Is = "November"
bMonat = 11
Case Is = "Dezember"
bMonat = 12
End Select
For bCount = 24 To 90
Select Case bFraMonat
Case Is = 9
With Cells(bCount, 4)
If Month(.Value) = bMonat Then
.Offset(0, 1) = 1
Else
.Offset(0, 1) = ""
End If
End With
Case Is = 10
With Cells(bCount, 4)
If Month(.Value) = bMonat Then
.Offset(0, 1) = 1
End If
End With
End Select
Next
Next
Bekomme eine Fehlermeldung 13 - Laufzeitfehler. Sobald ich diese Zeile im Code veränder: For bCount = 24 To 90, d.h. die zweite Zahl nach unten setze (Bsp.: for bcount 24 to 50) und dann langsam wieder nach oben setze (für bcount to 90) funktioniert es wieder. Woran liegt das ??? Danke + Gruss Thorsten