"Strichliste" einfügen

[Olimo]

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ß

[BoskoBiati]

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

[RPP63]

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

[RPP63]

@Edgar:
Mache doch mal einen Doppelklick auf mehr als eine Zelle ...

*DuckUndWeg*

:05:

Gruß Ralf

[Olimo]

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

[RPP63]

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

[BoskoBiati]

@Edgar:
Mache doch mal einen Doppelklick auf mehr als eine Zelle ...

*DuckUndWeg*

:05:

Gruß Ralf

OK :16: