Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If (Sh.Name = "1. Quartal 1.1.-31.3." Or Sh.Name = "2. Quartal 1.4.-30.6." Or _
Sh.Name = "3. Quartal 1.7.-30.9." Or Sh.Name = "4. Quartal 1.10.-31.12.") Then
    If Target.Row >= 2 Then
        If Target.Column = 4 Then
            For i = 2 To 9000
                If Target.Row = i Then
                    Call KonTextMenu
                End If
            Next i
        Else
             If Target.Column = 5 Then
                For i = 2 To 9000
                    If Target.Row = i Then
                        Call ArtenMenuee
                    End If
                Next i
            Else
                Call Zurueck
            End If
            Call Zurueck
        End If
    Else
        Call Zurueck
    End If
End If
End Sub