unerwarteter Stop bei For each-next
Jörg-HH
in diesem Codeabschnitt bekomme ich beim untersten "Next c" gemeldet "Next ohne For". Ich überblicke aber nicht, warum die Meldung kommt - da steht doch etwas höher "For Each c", und außerdem erkenne ich keinen prinzipiellen Unterschied zur ersten Schleife. Wenn ich die wechselweise auskommentiere, kommt der Fehler nur bei der zweiten - die erste läuft anstandslos durch.
Hat jemand ne Idee, warum das so ist...?
Grüße - Jörg
If wsFormular.OLEObjects("cmdForm_RestlSperren").Object.Caption = "restliche sperren" Then
For Each c In wsFormular.Range(Range(wsConfig.Range("AB9").Value), Range(wsConfig.Range("AB42").Value))
If c.Value = wsFormular.Range("sprAuswahl").Value Then
c.Value = "---"
c.Offset(0, 10).Locked = True
c.Offset(0, 16).Locked = True
End If
Next c
For Each c In wsFormular.Range(wsConfig.Range("AD26").Value)
If c.Value = wsFormular.Range("sprAuswahl").Value Then
c.Value = "---"
c.Offset(0, 2).Value = "---"
c.Offset(0, 4).Value = "---"
c.Offset(0, 6).Locked = True
Next c
...usw