Clever-Excel-Forum

Normale Version: Code 2x benutzen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
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
gelöscht, nicht richtig gelesen.  Confused

PS: bei mir funktioniert das.
Nein das geht leider nicht.
Nun geht es bei keiner Zelle mehr mit dem Code.
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
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.
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
Halle Uwe,
der Code funktioniert leider auch nicht, die Zelle E6 funktioniert aber E7 leider nicht.

VG
Hallo,

bei mir geht er einwandfrei in E6 und E7.

Gruß Uwe
Habe den Fehler gefunden.

Zellen dürfen nicht Verbunden sein.

DANKE :))
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
Seiten: 1 2