Thema Datum  Von Nutzer Rating
Antwort
10.01.2017 13:57:37 Leonard
*****
NotSolved
Blau Kontextmenü in einem Bereich deaktivieren
 10.01.2017 14:10:43 Gast62849
NotSolved
10.01.2017 14:19:15 Gast17678
NotSolved
10.01.2017 15:42:32 Leonard
NotSolved
10.01.2017 21:25:42 Gast51314
NotSolved

Ansicht des Beitrags:
Von:
Gast62849		 Datum:
10.01.2017 14:10:43		 Views:
641		 Rating:
     
Antwort:
  Ja
Thema:
Kontextmenü in einem Bereich deaktivieren

Hallo,

die brauch man immer mein Lieber, glaub's mir...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Set changeRange = Range("C2:E200")
    Call makro
    If Not Application.Intersect(changeRange, Target) Is Nothing Then
        If Target.Interior.Color = RGB(0, 165, 0) Then
           Target.Interior.Color = RGB(220, 0, 0)
               Cancel = True
        Else
            Target.Interior.Color = RGB(0, 165, 0)
        End If
    End If
    Set changeRange = Range("E2:E200")
    If Not Application.Intersect(changeRange, Target) Is Nothing Then
        If Target.Interior.Color = RGB(0, 165, 0) Then
           Target.Interior.Color = RGB(220, 0, 0)
        Else
            Target.Interior.Color = RGB(0, 165, 0)
        End If
    End If
    If Target.Column = 4 Then
    Target = Date
    End If
    Call Makro2
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.01.2017 13:57:37 Leonard
*****
NotSolved
Blau Kontextmenü in einem Bereich deaktivieren
 10.01.2017 14:10:43 Gast62849
NotSolved
10.01.2017 14:19:15 Gast17678
NotSolved
10.01.2017 15:42:32 Leonard
NotSolved
10.01.2017 21:25:42 Gast51314
NotSolved