Wie doppelklicke ich auf eine Zelle und addiere 1 zu diesem Zellenwert in Excel?
Dieser Artikel zeigt Ihnen, wie Sie einem Zellenwert automatisch 1 hinzufügen, indem Sie in Excel darauf doppelklicken.
Doppelklicken Sie auf eine Zelle und fügen Sie 1 mit VBA-Code hinzu
Doppelklicken Sie auf eine Zelle und fügen Sie 1 mit VBA-Code hinzu
Der folgende VBA-Code kann Ihnen helfen, einem Zellenwert nach einem Doppelklick 1 hinzuzufügen. Bitte gehen Sie wie folgt vor.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, auf der die Zellenwerte angezeigt werden sollen, die Sie mit einem Doppelklick hinzufügen möchten. Dann klick Code anzeigen aus dem Kontextmenü.
2. Beim Auftauchen Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Fügen Sie einem Zellenwert durch Doppelklick 1 hinzu
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
Note: Im Code ist A1 die Zelle, zu der Sie durch Doppelklick die Nummer 1 hinzufügen.
3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
Doppelklicken Sie nun auf Zelle A1, um 1 zu dem vorhandenen Wert hinzuzufügen (siehe Abbildung unten).
In Verbindung stehende Artikel:
- Wie füge ich ein aktuelles Datum / eine aktuelle Uhrzeit automatisch in eine Zelle ein, indem ich in Excel doppelklicke?
- Wie füge ich ein Häkchen in eine Zelle ein, indem ich in Excel doppelklicke?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!