Problem mit VBA-CODE
12.02.2003 11:03:28
thorsten gerber
habe wieder (immernoch) ein Problem mit nachfolgendem 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("01." & 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
Habe schon in den letzten Tag ein paar Hilfen bekommen, kann leider nicht mehr den alten Thread finden.
Bekomme immer eine Fehlermeldung= Typen unverträglich. Was soll der Code tun ? In der Zelle i19 und j19 stehen die Monatsnamen ausgeschrieben (Bsp.: Januar), diese sollen mit einer Zelle, in welcher das Datum steht (Bsp.: 01.01.2003) abgelichen werden. Wenn der ausgeschriebene Monat und das Datum übereinstimmen (Januar -> 01.01.2003 - nur der Monat), soll in einer bestimmten Zelle eine 1 ausgegeben werden. Wer kann mir helfen ??? Danke und Gruss Thorsten