Wie ändert man den Zellenwert durch Klicken auf die Zelle?
Ist es möglich, den Wert einer Zelle durch Klicken darauf in Excel zu ändern? Zum Beispiel wird beim ersten Klick auf eine bestimmte Zelle A1 der Text „Excel“ angezeigt. Wenn Sie erneut auf A1 klicken, wird der Text „Word“ angezeigt, und beim dritten Klick auf diese Zelle wird der Text „Outlook“ angezeigt. In diesem Fall wechselt der Wert in Zelle A1 wiederholt von „Excel“ zu „Word“ zu „Outlook“ zu „Excel“ … wie im folgenden Screenshot gezeigt:
Zellenwert durch Klicken auf eine Zelle mit VBA-Code ändern
Zellenwert durch Klicken auf eine Zelle mit VBA-Code ändern
Um diese Aufgabe in Excel auszuführen, kann der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf den Arbeitsblatt-Tab, in dem Sie den Zellenwert durch Klicken ändern möchten, und wählen Sie Ansicht Code aus dem Kontextmenü aus. Im geöffneten Fenster Microsoft Visual Basic for Applications kopieren und fügen Sie den folgenden Code in das leere Modul ein:
VBA-Code: Zellenwert durch Klicken auf eine 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, in der Sie den Wert durch Klicken ändern möchten. „Excel“, „Word“, „Outlook“ sind die Zellenwerte, die nacheinander angezeigt werden sollen. Sie können sie nach Bedarf ändern.
2. Nachdem Sie den Code eingefügt haben, speichern Sie den Code und schließen das Fenster. Jetzt wird beim ersten Klick auf die Zelle A1 sofort der Text „Excel“ angezeigt. Klicken Sie erneut darauf, erscheint der Text „Word“. Beim dritten Klick wird der Text „Outlook“ angezeigt, siehe Screenshot:
Weitere verwandte Artikel:
Wie filtert man Daten einfach durch Klicken auf den Zelleninhalt in Excel?
Wie sortiert man Spaltendaten durch Klicken auf die Kopfzeile in Excel?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins