VBA und Problem mit Code
07.02.2003 18:46:21
thorsten
habe immer noch ein Problem mit nachfolgenden Code:
Dim bMonat As Byte
Dim bCount As Byte
Dim bFraMonat As Byte
For bFraMonat = 9 To 10
Select Case Cells(19, bFraMonat)
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 90
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
Mein Problem liegt darin: Dieser Code ist auf eine Dauer von 72 Monaten ausgelegt (ist Teil eines besonderen Tilgungsplan). Bei 72 Monaten habe ich keinerlei Probleme. Sobald ich aber eine Laufzeit von z.B. nur 36 Monate habe, bekomme ich eine Fehlermeldung. Kann zwar diese Fehlermeldung mit den Code:On Error Resume Next unterdrücken, aber dadurch wird die 1 für die Felder von 37 bis 72 Monaten ausgegeben. Was kann ich tun, dass dies nicht mehr passiert. Danke im Voraus. Thorsten