Registriert seit: 08.10.2015
Version(en): 2007
Hallo,
leider kann ich meinen Wunsch nicht besser formulieren....
Ich möchte in einen Excel Tabelle ein "Strichliste" einfügen. Soll so funktionieren, dass sich zum Bsp. bei einem Doppelklich auf ein Feld die Zahl 1 addiert...
Geht das irgendwie, ich bin mior da nicht sicher ob das überhauptr machbar ist !?
Danke für eure Hilfe
Gruß
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hallo,
wenn Du mit VBA arbeiten kannst:
Code:
private sub worksheet_beforeDoubleClick (byval Target as Range, Cancel as boolean)
If target.count>1 or intersect(Target, Range("A1")) is nothing then exit sub
Range("A1")=Range("A1")+1
End Sub
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Hi!
Natürlich geht dies.
Doppelklick zählt hoch, Rechtsklick runter.
(Schaue Dir im VBA-Editor den Code von Tabelle1 an)
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
Gruß Ralf
Angehängte Dateien
CountUpAndDown.xlsm (Größe: 14,21 KB / Downloads: 21)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
@Edgar:
Mache doch mal einen Doppelklick auf mehr als eine Zelle ...
*DuckUndWeg*
:05:
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 08.10.2015
Version(en): 2007
Das ist der Knaller.... genau so soll es funktionieren ! Wie kann ich das in meine jeweiligen Felder einfügen....
Eine Step bei Step Anleitung wäre klasse....
Vielen Dank
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Dazu solltest Du eine Datei hochladen und die gewünschten Zellen farblich markieren.
Oder einfach die genannten Codes interpretieren.
Rechtsklick auf den Tabellenreiter, Code anzeigen
ins rechte Feld kopierst Du meine Codes
Zur Anpassung:
Wenn es nur um eine Zelle geht, nimmst Du mein Target.Address
Wenn es um einen Bereich geht, nimm die Intersect-Methode.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 13.04.2014
Version(en): 365, 2019
(08.10.2015, 11:57) RPP63 schrieb: @Edgar:
Mache doch mal einen Doppelklick auf mehr als eine Zelle ...
*DuckUndWeg*
:05:
Gruß Ralf
OK :16:
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.