Guten Morgen,
habe bereits vor einigen Tagen einen Thread bezüglich des nachfolgenden Codes geschrieben. Habe immer noch ein Problem damit. Ich bekomme die Fehlermeldung: Laufzeitfehler 13 - Typen unverträglich.
Mein Code:
Dim bMonat As Byte
Dim bCount As Byte
Dim bFraMonat As Byte
For bFraMonat = 9 To 10
If IsEmpty(Cells(19, bFraMonat)) Then Exit Sub
bMonat = Month(CDate("1." & Cells(19, bFraMonat) & ".2001"))
For bCount = 24 To 23 + [f17]
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
Folgendes möchte ich mit dem Code bezwecken: Er soll die Zelle i19 - in welcher der Monatsname steht (Bsp.: Januar) mit den Zellen D24 bis D95 (hier steht das atum : 01.01.2003, 01.02.2003, etc.) abgleichen. Sofern der Monatsname (Bsp.: Januar) und der Monat im Datum übereinstimmt (Bsp.: Zelle i19 = Januar und Zelle d24 01.01.2003), dann soll in Zelle E24 eine 1 eingetragen werden. Sofern dies nicht stimmt, soll nichts eingetragen werden. Der gleiche Abgleich soll mit Zelle j 19 erfolgen. Vielen Dank bereits im Voraus. Gruss
Thorsten