Wie können Sie den Zellwert ändern, indem Sie die Zelle anklicken?
Ist es möglich, den Wert einer Zelle in Excel per Klick zu ändern? Beispielsweise wird beim ersten Klick auf Zelle A1 der Text „Excel“ angezeigt, beim zweiten Klick „Word“ und beim dritten Klick „Outlook“. Anschließend beginnt die Abfolge wieder von vorn – der Wert in Zelle A1 wechselt also zyklisch zwischen „Excel“, „Word“ und „Outlook“, wie im folgenden Screenshot dargestellt:
Zellwert durch Anklicken einer Zelle mithilfe von VBA-Code ändern
Zellwert durch Anklicken einer Zelle mithilfe von VBA-Code ändern
Um diese Aufgabe in Excel zu erledigen, unterstützt Sie der folgende VBA-Code. Gehen Sie dazu bitte wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, für die Sie den Zellwert per Klick ändern möchten, und wählen Sie Code anzeigen aus dem Kontextmenü. Fügen Sie im geöffneten Microsoft Visual Basic for Applications-Fenster den folgenden Code in das leere Modul ein:
VBA-Code: Zellwert durch Anklicken einer Zelle ändern:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
Hinweis: Im obigen Code ist A1 die Zelle, deren Wert Sie durch Anklicken ändern möchten. „Excel“, „Word“ und „Outlook“ sind die Zellwerte, die zyklisch angezeigt werden sollen. Passen Sie sie ganz nach Ihren Bedürfnissen an!
2. Nachdem Sie den Code eingefügt haben, speichern Sie ihn und schließen Sie dieses Fenster. Wenn Sie nun zum ersten Mal auf die Zelle A1 klicken, wird sofort der Text „Excel“ angezeigt; beim erneuten Klick erscheint „Word“ und beim dritten Klick „Outlook“. Siehe Screenshot:
Weitere verwandte Artikel:
Wie filtert man Daten in Excel, indem man einfach auf den Zellinhalt klickt?
Wie sortiert man Spaltendaten in Excel, indem man einfach auf die Spaltenüberschrift klickt?
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