Fehlermeldung: Next ohne For
18.02.2004 16:16:38
Torsten K.
Roland Hochhäuser hat mir in den letzten Tagen geholfen, den nachfolgenden Code zuerstellen (der auch problemlos läuft):
Case Is = 110
For i = 4 To 1269
If Sheets("ACCOUNTS").Range("N" & i).Value - Sheets("CODCOSELE").Range("H7").Value = 0 _
And Sheets("ACCOUNTS").Range("E" & i).Value - Sheets("CODCOSELE").Range("E6").Value = 0 Then
Sheets("ACCOUNTS").Range("B" & i & ":G" & i).Copy _
Destination:=Sheets("CODCOSELE").Range("B" & J)
J = J + 1
End If
Next
Wenn ich aber eine Abfrage mit MsgBox einfüge um in Sheets("CODCOSELE").Range("E6") den Wert abzufragen, bleibt Excel mit der o.g. Fehlermeldung stehen und markiert das "Next" am Ende des Absatzes.
Case Is = 110
For i = 4 To 1269
If Sheets("CODCOSELE").Range("E6") = "" Then
If MsgBox("Bei CapCosts bitte ExpenseType auswählen!", vbOK) = vbOK Then
On Error Resume Next
Else
End If
If Sheets("ACCOUNTS").Range("N" & i).Value - Sheets("CODCOSELE").Range("H7").Value = 0 _
And Sheets("ACCOUNTS").Range("E" & i).Value - Sheets("CODCOSELE").Range("E6").Value = 0 Then
Sheets("ACCOUNTS").Range("B" & i & ":G" & i).Copy _
Destination:=Sheets("CODCOSELE").Range("B" & J)
J = J + 1
End If
Next
Was mache ich falsch?
Vielen Dank für Eure Hilfe.
Gruß
Torsten