GOTO in Schleife ersetzen
13.12.2014 14:08:18
Markus
Hallo zusammen,
ich suche den Befehl, wie ich aus der zweiten If-Anweisung, falls wahr, gleich die nächste Zelle nehmen kann, ohne auf GOTO zurückgreifen zu müssen. Einfach "next rngZeile" funktioniert nicht.
Viele Grüße
Markus
For Each rngZelle In tbl.usedrange
If rngZelle.Locked = False Then
If rngZelle.Value = 1 Then
GoTo ENDE
ElseIf rngZelle.Value = 0 Then
' tu was
Else
MsgBox "Fehler"
Exit Sub
End If
End If
ENDE: next rngZelle