habe durch mithilfe von Peter folgenden Code zum laufen bekommen:
Dim bMonat As Byte
Dim bCount 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
End Select
For bCount = 24 To 95
With Cells(bCount, 4)
If Month(.Value) = bMonat Then
.Offset(0, 1) = 1
Else
.Offset(0, 1) = ""
End If
End With
Next
Ich möchte genau den gleichen Code noch auf die Zelle J19 (also Cell 20,9) zum laufen bekommen. Wenn ich einfach den Code kopiere und nur die Zelle J19 veränder, bekomme ich natürlich eine Fehlermeldung. Danke + Grüsse Thorsten