Da fehlt ein End If, aber wo?
15.10.2003 10:52:38
xico
als blutiger VBA-Anfänger, der seinen Spass daran gefunden hat, habe ich im folgenden Code ein End If fehlerhaft:
Sub Increase()
Dim d, e As Integer
For d = Sheets(1).Cells(13, 11).Value To 16
For e = 41 To 80
If Sheets(1).Cells(13, 11) = "99" Then
Exit Sub
Else
If Cells(e, 25) <> "1" Then
Next e
Else
Select Case Cells(e, d)
Case Is = ""
Cells(e, d) = ""
Case Is <> ""
Cells(e, d) = Cells(e, d) * Sheets(1).Cells(13, 4)
End Select
End If
End If
Next e
Next d
End Sub
Ich habe schon so manches probiert, geht aber nicht.
Danke für Antworten.
Xico