habe ein Problem mit folgenden code:
Dim bMonat As Byte
Select Case Cells(19, 9)
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
' hier die weiteren Monate abfragen
End Select
With Range("d24")
If Month(.Value) = bMonat Then
.Offset(0, 1) = 1
Else
.Offset(0, 1) = ""
End If
End With
Wie sieht denn der Code aus, wenn ich diesen auf die Zellen d24 bis d95 anwenden will. In meinem Beispiel wird nur die Zelle D24 überprüft. Mit Range ("d24:D95") bekomme ich eine Fehlermeldung. Vielen Dank und Gruss. THORSTEN