Wie erhöht man beim Doppelklicken in Excel den Wert einer Zelle um 1?
Dieser Artikel zeigt Ihnen, wie Sie den Wert einer Zelle beim Doppelklicken automatisch um 1 erhöhen können.
Verwenden Sie einen Doppelklick, um den Zellenwert mithilfe von VBA-Code um 1 zu erhöhen
Verwenden Sie einen Doppelklick, um den Zellenwert mithilfe von VBA-Code um 1 zu erhöhen
Der folgende VBA-Code führt Sie Schritt für Schritt dazu, beim Doppelklicken 1 zum Wert in Zelle A1 hinzuzufügen. Bitte befolgen Sie diese Anweisungen.
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, in der beim Doppelklicken 1 zum Wert in Zelle A1 hinzugefügt werden soll, und wählen Sie im Kontextmenü Code anzeigen aus.
2. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code 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 steht A1 für die Zelle, zu der bei jedem Doppelklick 1 hinzugefügt wird. Passen Sie diese Angabe einfach nach Bedarf an.
3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster „Microsoft Visual Basic for Applications“ zu schließen.
Ein Doppelklick auf Zelle A1 addiert nun 1 zum bestehenden Wert – wie im folgenden Screenshot dargestellt.
Verwandte Artikel:
- Wie fügt man beim Doppelklicken in Excel automatisch das aktuelle Datum bzw. die aktuelle Uhrzeit in eine Zelle ein?
- Wie fügt man in Excel beim Doppelklicken auf eine Zelle ein Häkchen ein?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins