Wie kann man durch Doppelklick in Excel den Wert einer Zelle um 1 erhöhen?

Dieser Artikel zeigt Ihnen eine Methode, wie Sie den Wert einer Zelle automatisch durch Doppelklick um 1 erhöhen können.

Verwenden Sie einen Doppelklick, um den Zellenwert mit VBA-Code um 1 zu erhöhen

Verwenden Sie einen Doppelklick, um den Zellenwert mit VBA-Code um 1 zu erhöhen

Der folgende VBA-Code führt Sie durch die Schritte, um den Wert in Zelle A1 durch Doppelklicken um 1 zu erhöhen. Bitte folgen Sie diesen Anweisungen.

1. Klicken Sie mit der rechten Maustaste auf den Arbeitsblatt-Tab, wo Sie den Wert in Zelle A1 durch Doppelklicken um 1 erhöhen möchten. Klicken Sie dann im Kontextmenü auf Ansicht Code.

2. Kopieren Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications das unten stehende VBA-Makro und fügen Sie es in das Codefenster ein.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

Hinweis: Im Code ist A1 die Zelle, in der bei jedem Doppelklick 1 addiert wird. Sie können dies bei Bedarf anpassen.

3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Jetzt wird durch Doppelklicken auf Zelle A1 der bestehende Wert um 1 erhöht, wie im folgenden Screenshot dargestellt.

Verwandte Artikel:

• Wie kann man durch Doppelklick in Excel automatisch das aktuelle Datum/Uhrzeit in eine Zelle einfügen?
• Wie kann man durch Doppelklick in Excel ein Häkchen in eine Zelle einfügen?