habe folgenden code.
dieser färbt bei einem rechtsklick bestimmte felder blau. diese felder würde ich nun gerne zählen. deshalb wird beim einferben der wert xjan +1 gesetzt. beim entfärben, wird von xjan wieder eines abgezogen.
wie bekomm ich diese variable ins excel, in eine beliebige zelle, z.b A1?
Dim xjan As Integer
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If (Target.Column < 3 Or Target.Column > 7) Or (Target.Row > 34 Or Target.Row < 29) Then Exit Sub
Select Case Target.Interior.ColorIndex
Case 2
Selection.Interior.ColorIndex = 37
xjan = xjan + 1
Case Else
Selection.Interior.ColorIndex = 2
xjan = xjan - 1
End Select
Cancel = True
End Sub