wo next i platzieren
22.05.2005 21:17:14
eva
habe die bekannte Fehlermeldung "next ohne for". Wo muss ich die end ifs und das next ztmaster platzieren?
For ztmaster = 5 To 150
docview.Cells(ztdv, 1) = toolset.Cells(ztmaster, 115) 'vendor A
docview.Cells(ztdv, 2) = toolset.Cells(ztmaster, 14) 'area
docview.Cells(ztdv, 3) = toolset.Cells(ztmaster, 15) 'module
toolset.Range(toolset.Cells(ztmaster, 98), toolset.Cells(ztmaster, 104)).Copy docview.Cells(ztdv, 4)
If Not docview.Cells(ztdv, 5) = "" Then
If docview.Cells(ztdv, 6) = "" Or docview.Cells(ztdv, 7) = "" Or docview.Cells(ztdv, 8) = "" Or docview.Cells(ztdv, 9) = "" Or docview.Cells(ztdv, 10) = "" Then
docview.Range(6, 10).Interior.ColorIndex = 3
If Not docview.Cells(ztdv, 6) = "" Or docview.Cells(ztdv, 7) = "" Or docview.Cells(ztdv, 8) = "" Or docview.Cells(ztdv, 9) = "" Or docview.Cells(ztdv, 10) = "" Then
docview.Range(6, 10).Interior.ColorIndex = 4
ztdv = ztdv + 1
Next ztmaster
Danke und Gruß
Eva