Thema Datum  Von Nutzer Rating
Antwort
10.01.2017 16:21:58 BraucheHilfe :)
*****
NotSolved
Blau Zelle G2 +1
 11.01.2017 15:23:40 BigBen
Solved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
11.01.2017 15:23:40		 Views:
729		 Rating:
     
Antwort:
 Nein
Thema:
Zelle G2 +1

Hallo,

eventuell hilft dieser VBA-Code weiter:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim changeRange As Range
    Set changeRange = Range("C2:C200")
    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)
           Application.CommandBars("cell").Enabled = False
        Else
            Target.Interior.Color = RGB(0, 165, 0)
            With Target.Worksheet.Cells(2, 7) ' Zelle G2
                If IsNumeric(.Value) Then
                    .Value = .Value + 1
                Else
                    .Value = 1
                End If
            End With
        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
End Sub

LG, BigBen

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 16:21:58 BraucheHilfe :)
*****
NotSolved
Blau Zelle G2 +1
 11.01.2017 15:23:40 BigBen
Solved