Problem mit einem VBA-Code
08.02.2003 13:55:21
thorsten
ich habe ein Problem mit dem nachfolgenden Code:
Dim bMonat As Byte
Dim bCount As Byte
Dim bFraMonat As Byte
For bFraMonat = 9 To 10
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
Sinn und Zweck des Codes ist, wenn in einer Zelle der Monat steht (ausgeschrieben, Bsp. "Januar") und mit einer anderen vergleicht, in welcher das Datum (Bsp.: 01.01.2002) steht, wird in einer anderen Zelle automatisch eine 1 ausgeworfen (sofern Datum und Monatsname zusammenpassen). Dieser Code läuft einwandfrei, bis auf einen Schönheitsfehler: beim Datum 01.11. wird grundsätzliche eine 1 ausgeworfen. Ich hoffe Ihr könnt mir einigermaßen folgen. Was kann ich dagegen tun ??? Danke + Gruss Thorsten