habe bereits heute morgen einen Beitrag geschrieben, welcher leider nicht beantwortet wurde.
Habe auch mittlerweile das Problem beim nachfolgenden Code gefunden. Ich bekomme jedesmal eine Fehlermeldung, wenn nict alle Zeilen von 24 bis 95 belegt sind, d.h. die entsprechenden Zellen (Spalte d24 bis d95) leer sind. Wer kann mir bei nachfolgenden Code einen Tip gegen, wie ich diese Fehlermeldung vermeiden kann.
Meine Code:
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
Danke + Gruss Thorsten