Sprung nach If Then , ist Next i nicht möglich?
07.12.2005 08:36:39
urs
der untere Code ist nur ein AUSSCHNITT. Nach dem Then soll das Programm bei
"Next cCounter" weiter laufen. Wie stelle ich das an?
If Cells(iRow - 1, jCol).Value > "" Then Next j
Else:
c = Range.Cells(iRow, jCol).Value
d = 0
For cCounter = 1 To Len(c)
a = Mid(c, cCounter, 1)
For bCounter = 1 To Len(b)
If a = Mid(b, bCounter, 1) Then d = d + 1
End If
If d = 2 Then Next cCounter
Else:
Cells(iRow - 1, jCol).Value = a
Next cCounter
End If
Vielen Dank für jeglichen Tipp. Gruss urs