Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle

Forumthread: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle

Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
16.01.2025 20:04:04
mablu
Hallo zusammen ich habe google gesucht wie die Formel sein kann, ich habe was gefunden weiss aber nicht wie ich es auf meine Wunschtabelle umsetzen kann.
Wäre schön wenn mir hier jemand helfen könnte.

Mein Wunsch
Ich habe eine Kinder Menueliste erstellt und möchte nun jedes mal dazuzählen (doppelklick) wenn ich es gekocht habe, sollte ich mal falsch getippt haben solte es 1 abzählen mit einfachklick sowie das Aktuelle datum mit Zeit in die Folgezelle schreiben.

Das Makro kann 1 Adieren in Zelle C4 weiter bin ich nicht gekommen sorry
ich möchte das für die ganuze Tabelle umsetzen aber wie???

Beispiel:
https://www.herber.de/bbs/user/174899.xlsm

Vielen Dank für eure Hilfe
Mablu
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
16.01.2025 20:21:48
Klexy
Nur mal schnall zusammengegoogelt.
Stichwort: SelectionChange 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Address = "$C$1" Then

MsgBox ("Zelle C1 wurde geklickt")

End If

End Sub





Private Sub Worksheet_BeforeDoubleClick( _

   ByVal Target As Excel.Range, Cancel As Boolean)

   Cancel = True

   If Target.Address = "$B$3" Then

      MsgBox "Sie befinden sich in Zelle " & Target.Address

   End If

End Sub


Schau mal, ob dir das hilft. Zumindest sollte es dir die Richtung anzeigen.
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
16.01.2025 20:43:13
Alwin Weisangler
Hallo Mablu,

ich würde es mit Doppelklick +1 und Rechtsklick -1 machen. 


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    On Error Resume Next

    If Not Intersect(Target, Range("C4;C33")) Is Nothing Then Target = Target + 1: Cancel = True

End Sub



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    On Error Resume Next

    If Not Intersect(Target, Range("C4;C33")) Is Nothing Then Target = Target - 1: Cancel = True

End Sub


Gruß Uwe
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
16.01.2025 21:24:09
Klexy
Da hast du Recht.
Rechtsklick verwenden und Normalklick besser nicht für Sonderfunktionen blockieren.
Und erst prüfen, ob man in der richtigen Spalte ist und man nicht versehentlich beim Datum eins hochzählt.
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
17.01.2025 09:52:40
mablu
Hallo Uwe
das es so viele Möglichkeiten gibt hätte ich nie gedacht, deine gefällt mir besonders!
Vielen Dank für deine Version ich habe noch ein Anliegen lennst du auch eine Lösung wenn sich in der Spalte C eine Zelle ändert dass dann in der Zelle rechts davon (Spalte D) das Aktuelle Datum und Zeit eingetragen wird?
Aber vorab schon besten Dank.
Sorry ich hab den hacken für Frage offen vergessen zu setzen.
Lieber Gruss Mablu
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
17.01.2025 10:16:45
Yal
Hallo Mablu,

Uwe gönnt sich wohl einen ausgedehnten Frühstück ;-)

Anbei deine Wünsche (basierend auf dem Code von Uwe): 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Werte_setzen Target, 1

    Cancel = True

End Sub



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Werte_setzen Target, -1

    Cancel = True

End Sub



Private Sub Werte_setzen(Target As Range, Increment As Integer)

    On Error Resume Next

    If Not Intersect(Target, Range("C4:C33")) Is Nothing Then

        Target.Value = Target.Value + Increment

        Target.Offset(, 1).Value = Now

    End If

End Sub

VG Yal
Anzeige
AW: gelöst
17.01.2025 10:24:03
mablu
Wow so schnell
das klappt genau nach meinen Wünschen, es sieht so einfach aus aber da werde ich wohl noch eine weile darüber nachdenken müssen.
Vielen lieben Dank für die rasche Lösung!
Wünsche dir ein schönes weekend
Grüsse Mablu
AW: gelöst
17.01.2025 10:33:03
Alwin Weisangler
@Yal,

nein der Wecker hatte nicht geklingelt und mein Tagesablauf hat sich nun etwas verschoben.
Ab jetzt lungre ich vorm Rechner rum. Draußen ist es mir noch zu kalt zum Wandern.

hier aber noch nachträglich meine Idee, wie ich es machen würde: 


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    On Error Resume Next

    If Not Intersect(Target, Range("C4;C33")) Is Nothing Then Target = Target + 1: Target.Offset(, 1) = Now: Cancel = True

End Sub



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    On Error Resume Next

    If Not Intersect(Target, Range("C4;C33")) Is Nothing Then Target = Target - 1: Target.Offset(, 1) = Now: Cancel = True

End Sub


Gruß Uwe
Anzeige
AW: gelöst
17.01.2025 10:41:28
mablu
Ja auch dieser Vorschlag geht, und ist noch etwas kürzer super!
Jetzt wünsche ich dir etwas wärmeres Wetter damit das Wandern klappt:)
Vielen Dank für eure Hilfe ich bin froh gibt es dieses Forum mit so vielen tollen Leuten.

Hab einen schönen Tag
Es Grüsst Mablu
AW: gelöst
17.01.2025 11:11:38
Yal
Achtung: 
Range("C4:C33")
anstatt 
Range("C4;C33")

Besonders in Kombination mit "On Error Resume Next", weil der Fehler nicht angezettelt wird.

VG
Yal
Anzeige
AW: gelöst
17.01.2025 11:43:51
Alwin Weisangler
oh je,

Danke für die Richtigstellung - da hatte ich wohl die Taste daneben erwischt.

Gruß Uwe
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
17.01.2025 09:42:50
mablu
Hallo Uwe
das es so viele Möglichkeiten gibt hätte ich nie gedacht, deine gefällt mir besonders!
Vielen Dank für deine Version ich habe noch ein Anliegen lennst du auch eine Lösung wenn sich in der Spalte C eine Zelle ändert dass dann in der Zelle rechts davon (Spalte D) das Aktuelle Datum und Zeit eingetragen wird?
Aber vorab schon besten Dank.
Lieber Gruss Mablu
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
16.01.2025 21:09:20
Yal
Hallo Mablu,

anbei eine Alternativ, weil den normalen Klick umzuleiten eher umständlich sein kann:
Doppelklick für +1,
Alt+Doppelklick für -1
Es wird auch vorher geprüft, ob der Hintergrund der Zelle Geld ist (ColorIndex=6) und nur dann reagieren. 

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Interior.ColorIndex = 6 Then

        Target.Value = Target.Value + IIf(GetAsyncKeyState(&H12), -1, 1)  'wenn Alt gedruckt ist, ...

        If Target.Value = 0 Then Target.ClearContents

        Cancel = True

    End If

End Sub


VG
Yal
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
16.01.2025 21:21:35
Yal
eine Version mit Rechtsklick und Shift... 

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Interior.ColorIndex = 6 Then

        Cancel = True

        Target.Value = Target.Value + IIf(GetAsyncKeyState(&H10), -1, 1) 'Alt: &H12, Strg: &H11, Shift: &H10

        If Target.Value = 0 Then Target.ClearContents

    End If

End Sub

VG
Yal
Anzeige
AW: Bei doppelklick Zelle plus +1 einfachklick -1, in folgezelle
17.01.2025 09:47:19
mablu
Vielen Dank für diese wunderbare Lösung, das mit der Farbe kann ich sicher in meinen weiteren Projekten verwenden.
Vielen Dank für deine Vorschläge, schön wenn einem so schnell geholfen wird.
Ich wünsche ein schönes weekend.
Viele Grüsse Mablu
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum