Code 2x benutzen

[Bianco]

Hallo ich würde gerne den Code in Zelle E6, auch in der Zelle E7 benutzen, allerdings zeigt er mir immer wieder den Fehler an dass es ein zweideutiger Name wäre.

Um den Code handelt es sich:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
  If .Address = "$E$6" Then
    .Value = .Value + 1
    Cancel = True
  End If
End With
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
  If .Address = "$E$6" Then
    .Value = .Value - 1
    Cancel = True
  End If
End With
End Sub

[Klaus-Dieter]

gelöscht, nicht richtig gelesen. 

PS: bei mir funktioniert das.

[Bianco]

Nein das geht leider nicht.
Nun geht es bei keiner Zelle mehr mit dem Code.

[Fuxxli]

Hallo

Evtl. so? Hatte eben ein ähnliches Problem.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
  If .Address = "$E$6" Then
    .Value = .Value + 1
    Cancel = True
  End If
  ElseIf .Address = "$E$6" Then
    .Value = .Value - 1
    Cancel = True
  End If
End With
End Sub

[Bianco]

Nein das geht leider auch nicht.
Der ist ja fast ähnlich wie mein Code.
Mein Code klappt ja für 1 Zelle super, allerdings brauch ich die selbe Funktion in der Zelle darunter.

[Kuwer]

Hallo,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  With Target

    If .Address = "$E$6" Or .Address = "$E$7" Then

      .Value = .Value + 1

      Cancel = True

    End If

  End With

End Sub



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

  With Target

    If .Address = "$E$6" Or .Address = "$E$7" Then

      .Value = .Value - 1

      Cancel = True

    End If

  End With

End Sub

Gruß Uwe

[Bianco]

Halle Uwe,
der Code funktioniert leider auch nicht, die Zelle E6 funktioniert aber E7 leider nicht.

VG

[Kuwer]

Hallo,

bei mir geht er einwandfrei in E6 und E7.

Gruß Uwe

[Bianco]

Habe den Fehler gefunden.

Zellen dürfen nicht Verbunden sein.

DANKE :))

[snb]

Alternative:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If instr("$E$6$E$7",Target.Address) Then
      target = target + 1
      Cancel = True
    End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If instr("$E$6$E$7",Target.Address) Then
      target = target - 1
      Cancel = True
    End If
End Sub