Hallo und einen schönen guten Tag wünsche ich allen,
suche eine Möglichkeit diesen Befehl
If Not Intersect(Target, Range("re4")) Is Nothing Then
Cancel = True
Range("RE4") = Range("re4").Value + 1
End If
so zu verändern, das wenn die Zahl 13 erreicht ist, entweder das es nicht weiter geht oder er auf 1 zurück springt. Das beste wäre wenn er nicht weiter zählen kann. Da ich per Doppelklick auf 1 zurücksetze kann.
Für eine Lösung wäre ich sehr dankbar.
Gruß Adde