Wie ändere ich den Zellenwert durch Klicken auf die Zelle?

Ist es möglich, den Wert einer Zelle durch Anklicken in Excel zu ändern? Wenn Sie beispielsweise beim ersten Mal auf eine bestimmte Zelle A1 klicken, wird der Text „Excel“ angezeigt. Wenn Sie erneut auf A1 klicken, wird der Text „Word“ angezeigt und wenn Sie ein drittes Mal auf diese Zelle klicken, wird der Text „Outlook“ angezeigt. In diesem Fall wechselt der Wert in Zelle A1 von „Excel“ zu „Word“ zu „Outlook“ zu „Excel“ … wie im folgenden Screenshot gezeigt:

Ändern Sie den Zellenwert, indem Sie auf eine Zelle mit VBA-Code klicken

Ändern Sie den Zellenwert, indem Sie auf eine Zelle mit VBA-Code klicken

Um diese Aufgabe in Excel abzuschließen, kann Ihnen der folgende VBA-Code helfen: Gehen Sie wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, deren Zellenwert Sie ändern möchten, indem Sie auf klicken, und wählen Sie Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Applikationen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:

VBA-Code: Ändern Sie den Zellenwert, indem Sie auf eine Zelle klicken:

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, A1 ist die Zelle, in der Sie den Wert ändern möchten, indem Sie auf „Excel", "Word", "Outlook"Sind die Zellenwerte, die Sie wiederholt anzeigen möchten, können Sie sie nach Bedarf ändern.

2. Speichern Sie nach dem Einfügen des Codes den Code und schließen Sie das Fenster. Wenn Sie jetzt zum ersten Mal auf die Zelle A1 klicken, wird der Text „Excel“ sofort angezeigt. Klicken Sie erneut darauf. Der Text „Word“ wird angezeigt. Der Text „Outlook“ wird angezeigt, wenn Sie zum dritten Mal darauf klicken. siehe Screenshot:

Weitere verwandte Artikel:

Wie filtere ich Daten, indem ich in Excel auf den Zelleninhalt klicke?

Wie sortiere ich Spaltendaten, indem ich in Excel auf die Überschrift klicke?