0 leden en 1 gast bekijken dit topic.
Option ExplicitPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)'Erik Van GeitDim Arr As VariantDim k As IntegerDim rng As RangeArr = Array("G", "NG", "T", "S1", "S2", "S3")Set rng = Range("A1:D20")If Target.Count > 1 Then Exit SubIf Intersect(Target, rng) Is Nothing Then Exit SubCancel = TrueOn Error Resume Nextk = Application.Match(Target.Value, Arr, 0)On Error GoTo 0Target.Value = Arr(IIf(k - 1 = UBound(Arr), 0, k))End Sub