|
Hey und guten Morgen!
Ich bekam vor zwei Tagen eine ganze tolle Hilfestellung hier aus dem Forum und hoffe, dass dies heute nochmal der Fall sein wird.
Über einen gestrigen user-Beitrag bekam ich eine Idee und würde meinen Code gerne an einigen Stellen modifizieren.
Wie kann ich den unten stehenden Code modifizieren, dass durch ein Doppelklick auf die jeweilige Zelle deren Wert um 1 erhöht wird aber nur zwischen 1 und 5. Wenn ein Doppelklick bei Ist-Zellenwert = 5 erfolgt, dann soll der Zellenwert wieder bei 1 beginnen, wie ne Art Dauerschleife.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim arrA() As String, x
Dim rngSh1 As Range, c As Range
If Target.Count > 1 Then Exit Sub
' Shaft 1_regular_tolerance
arrA = Split("W266:W268,X266:X268,Y266:Y268,W271:W273,X271:X273,Y271:Y273,W276:W278,X276:X278,Y276:Y278,W281:W286,X281:X286,Y281:Y286,W288:W291,X288:X291,Y288:Y291", ",")
For x = LBound(arrA) To UBound(arrA)
If rngSh1 Is Nothing Then
Set rngSh1 = Range(arrA(x))
Else
Set rngSh1 = Union(rngSh1, Range(arrA(x)))
End If
Next x
If Not Intersect(rngSh1, Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value + 1
Application.EnableEvents = True
Cancel = True
Exit Sub
End If
End Sub |