Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Address = "$C$1" Then
MsgBox ("Zelle C1 wurde geklickt")
End If
End Sub
Um ein click event in Excel zu realisieren, das beim Klick auf eine Zelle ausgelöst wird, kannst du die Worksheet_SelectionChange-Ereignisprozedur in VBA verwenden. Hier sind die Schritte, die du befolgen solltest:
Excel öffnen und die Arbeitsmappe laden, in der du das Event einfügen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Im Projektfenster (links) wähle das Arbeitsblatt aus, für das du das Event erstellen möchtest (z.B. Sheet1).
Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Address = "$A$3" Then
Range("B3").Value = 3
End If
' Weitere Bedingungen für andere Zellen hinzufügen
End SubSpeichern und den VBA-Editor schließen.
Klicke nun auf Zelle A3, um zu testen, ob die Zahl 3 in Zelle B3 eingetragen wird.
Du kannst weitere Bedingungen für andere Zellen hinzufügen, um unterschiedliche Werte in Zellen zu setzen.
Fehler: Nichts passiert, wenn ich auf die Zelle klicke.
Fehler: Der Code funktioniert nur für eine bestimmte Zelle.
If-Bedingungen für andere Zellen hinzu, wie im Beispiel oben beschrieben.Wenn du nicht den SelectionChange-Event verwenden möchtest, kannst du auch den Double Click-Event nutzen. Hier ist ein Beispielcode:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Address = "$A$3" Then
Range("B3").Value = 3
Cancel = True ' Verhindert das Bearbeiten der Zelle
End If
End SubDieser Code fügt die Zahl 3 in B3 ein, wenn du A3 doppelklickst.
Hier sind einige Beispiele für verschiedene Zellen und Werte:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Address = "$A$3" Then
Range("B3").Value = 3
ElseIf Target.Cells.Address = "$A$4" Then
Range("B4").Value = 5
ElseIf Target.Cells.Address = "$A$5" Then
Range("B5").Value = 10
End If
End SubDieses Beispiel zeigt, wie du die Werte für mehrere Zellen anpassen kannst.
Select Case, um den Code für mehrere Zellen übersichtlicher zu gestalten.1. Wie aktiviere ich Makros in Excel?
Um Makros zu aktivieren, gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros und aktiviere die gewünschten Optionen.
2. Kann ich das Event auch für ganze Bereiche verwenden?
Ja, du kannst den Code so anpassen, dass er für einen gesamten Bereich von Zellen funktioniert, indem du die Target-Bedingung entsprechend erweiterst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen