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.
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