Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Klick auf Zelle -> Makro ausführen

Forumthread: Klick auf Zelle -> Makro ausführen

Klick auf Zelle -> Makro ausführen
30.08.2005 13:05:04
Joey
Hallo!
Ich möchte bei Klick auf die Zelle A1, daß dann ein Makro ausgeführt wird, oder ich in eine andere Tabelle wechsle.
Folgender Code funkt nicht:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then Sheets("Tabelle2").Activate
End Sub

Bitte um Hilfe, danke!
Lg
Joey
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klick auf Zelle -> Makro ausführen
30.08.2005 13:08:06
Uduuh
Hallo,
klar funktioniert der Code. Allerdings nur, wenn A1 vor Klick nicht aktiv war.
Gruß aus’m Pott
Udo

AW: Klick auf Zelle -> Makro ausführen
30.08.2005 13:08:06
DieterB
Hallo Joey,
wenn du aus Zelle A1 in A2 springst, funktioniert das.
Mach aus $A$1 mal $A$2
Gruß DieterB
Anzeige

Forumthreads zu verwandten Themen

Anzeige

Infobox / Tutorial

Makro ausführen beim Klick auf Zelle in Excel


Schritt-für-Schritt-Anleitung

Um ein Makro auszuführen, wenn Du auf eine bestimmte Zelle klickst, kannst Du den folgenden VBA-Code verwenden. Dieser Code ist speziell für Excel gedacht und sollte in das entsprechende Arbeitsblatt-Modul eingefügt werden:

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Suche im Projektfenster auf der linken Seite das gewünschte Arbeitsblatt (z.B. "Tabelle1").
  3. Doppelklicke auf das Arbeitsblatt, um das Codefenster zu öffnen.
  4. Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Address = "$A$1" Then Sheets("Tabelle2").Activate
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Klicke auf die Zelle A1 und beobachte, dass Du automatisch zu "Tabelle2" wechselst.

Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht, wenn A1 bereits aktiv ist.

    • Lösung: Der Code wird nur dann ausgeführt, wenn Du eine andere Zelle auswählst und dann zu A1 zurückkehrst. Um sicherzustellen, dass der Wechsel immer funktioniert, kannst Du eine andere Zelle wie A2 als Trigger verwenden.
  • Problem: Makros sind deaktiviert.

    • Lösung: Stelle sicher, dass Du Makros in Excel aktiviert hast. Gehe dazu in die Optionen und aktiviere die Makrosicherheit.

Alternative Methoden

Wenn Du eine andere Methode bevorzugst, kannst Du auch ein Button-Steuerelement verwenden, um ein Makro auszuführen:

  1. Gehe zu Entwicklertools in der Menüleiste.
  2. Klicke auf Einfügen und wähle das Button-Steuerelement aus.
  3. Ziehe das Steuerelement auf das Arbeitsblatt.
  4. Wähle das Makro aus, das Du ausführen möchtest, wenn der Button geklickt wird.

Diese Methode ist besonders nützlich, wenn Du die Interaktion mit dem Arbeitsblatt vereinfachen möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie Du den Code anpassen kannst:

  • Wechsel zu einer anderen Tabelle: Ändere den Code, um zu einer anderen Tabelle zu wechseln:
If Target.Address = "$A$1" Then Sheets("Tabelle3").Activate
  • Mehrere Zellen verwenden: Du kannst auch mehrere Zellen definieren:
If Target.Address = "$A$1" Or Target.Address = "$B$1" Then Sheets("Tabelle2").Activate

Tipps für Profis

  • Verwende Target.Cells.Count, um sicherzustellen, dass die Aktion nur ausgeführt wird, wenn eine bestimmte Anzahl von Zellen ausgewählt ist.
  • Debugging-Hilfen: Nutze Debug.Print innerhalb des Codes, um herauszufinden, welche Zelle gerade ausgewählt wurde.

FAQ: Häufige Fragen

1. Warum wird mein Makro nicht ausgeführt, wenn ich auf Zelle A1 klicke?
Das liegt daran, dass der SelectionChange-Ereignis nur ausgelöst wird, wenn Du die Auswahl änderst. Stelle sicher, dass Du zuerst eine andere Zelle auswählst.

2. Kann ich den Code auch in Excel 2016 verwenden?
Ja, der Code funktioniert in Excel 2010, 2013, 2016 und neueren Versionen. Achte darauf, dass Du Makros aktiviert hast.

3. Was kann ich tun, wenn ich mehrere Zellen als Trigger verwenden möchte?
Du kannst mehrere Bedingungen im If-Statement kombinieren, um verschiedene Zellen zu definieren, die das Makro auslösen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige