Clever-Excel-Forum

Normale Version: "Strichliste" einfügen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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ß
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
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
@Edgar:
Mache doch mal einen Doppelklick auf mehr als eine Zelle ...

*DuckUndWeg*

:05:

Gruß Ralf
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
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
(08.10.2015, 11:57)RPP63 schrieb: [ -> ]@Edgar:
Mache doch mal einen Doppelklick auf mehr als eine Zelle ...

*DuckUndWeg*

:05:

Gruß Ralf

OK :16: Blushsmiley