Überlauf
09.01.2005 13:16:44
Franz W.
da mach ich wohl was falsch, komm aber nicht drauf:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 6 And Target.Row > 5 And Target.Row < 37 Then
For c = 20 To 244 Step 14
Next
End If
End Sub
Bei Doppelklick auf die Spalte 20 und dann jede weitere 14.-te soll was ausgeführt werden. Das versuche ich mit obigem Code. Wird auch tatsächlich auf eine der gewünschten Spalten geklickt, passt alles.
Wird allerdings in die Zelle einer anderen Spalte geklickt, bleibt er bei c = 244 stehen und markiert gelb "Next" mit der Meldung "Überlauf".
Ich kapier schon so ungefähr, warum das so ist, weiß aber nicht, wie ich es verhindern kann. Außer mit On Error Resume Next. Oder ist das hier die einzige Möglichkeit?
Vielen Dank schon mal und Grüße
Franz