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

Makro ausführen bei Blattwechsel

Forumthread: Makro ausführen bei Blattwechsel

Makro ausführen bei Blattwechsel
17.07.2003 20:41:28
Paddy
ich möchte, dass wenn ich von tabelle1 zu tabelle 2 wechsle in tabelle1 ein makro1 ausgeführt wird und nachher auch noch in der tabelle2 ein makro2 ausgeführt wird.
vielen dank für eure hilfe.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen bei Blattwechsel
17.07.2003 20:48:39
Hajo_Zi
Hallo Paddy
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
Benutze die Aktionen

Private Sub Worksheet_Activate()
End Sub


Private Sub Worksheet_Deactivate()
End Sub

unter VBA Tabelle
Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige
AW: Makro ausführen bei Blattwechsel
17.07.2003 20:54:55
Paddy
Hallo Hajo
Sorry, für das, dass ich keine manieren gezeigt habe.
Danke für deine Hilfe. Habs zwar noch nicht implementiert, aber wird schon gehen.
gruss Paddy

AW: Makro ausführen bei Blattwechsel
17.07.2003 20:48:34
Hajo_Zi
Hallo Paddy
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
Benutze die Aktionen

Private Sub Worksheet_Activate()
End Sub


Private Sub Worksheet_Deactivate()
End Sub

unter VBA Tabelle
Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige
AW: Makro ausführen bei Blattwechsel
17.07.2003 21:26:23
Paddy
Hallo nochmals
Hat wunderbar geklappt. das problem besteht jetzt noch darin, dass bei einem blattwechsel per hyperlink die makros nicht ausgeführt werden.
danke und gruss paddy

AW: Makro ausführen bei Blattwechsel
17.07.2003 21:43:17
Hajo_Zi
Hallo Paddy

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.TextToDisplay = "00'!A1" Then
MsgBox "Hyperlink zu Tabelle 01"
End If
End Sub

Gruß Hajo
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Anzeige
AW: Makro ausführen bei Blattwechsel
17.07.2003 21:51:06
Paddy
ciao hajo
vielen dank. hat geklappt.
gruz paddy

;
Anzeige

Infobox / Tutorial

Makros bei Blattwechsel in Excel VBA ausführen


Schritt-für-Schritt-Anleitung

Um ein Makro beim Wechsel zwischen Tabellenblättern in Excel auszuführen, kannst Du die folgenden Schritte befolgen:

  1. Öffne Deine Excel-Datei und wechsle in den VBA-Editor, indem Du ALT + F11 drückst.
  2. Im Projekt-Explorer wähle das Tabellenblatt aus, für das Du das Makro ausführen möchtest.
  3. Füge den Code für das Aktivieren und Deaktivieren des Blattes in den entsprechenden Code-Bereich ein:
Private Sub Worksheet_Activate()
    ' Hier wird Makro1 ausgeführt
    Call Makro1
End Sub

Private Sub Worksheet_Deactivate()
    ' Hier wird Makro2 ausgeführt
    Call Makro2
End Sub
  1. Stelle sicher, dass die Makros Makro1 und Makro2 bereits in Deinem VBA-Projekt definiert sind.
  2. Speichere Deine Arbeit und teste den Wechsel zwischen den Tabellenblättern.

Häufige Fehler und Lösungen

  • Makros werden nicht ausgeführt: Überprüfe, ob die Makros aktiviert sind. Gehe zu DateiOptionenTrust Center und aktiviere die Makros.

  • Makro beim Hyperlink-Wechsel nicht aktiv: Verwende den folgenden Code, um ein Makro beim Wechsel über Hyperlinks auszuführen:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.TextToDisplay = "Dein_Hyperlink_Text" Then
        Call Makro1
    End If
End Sub

Alternative Methoden

Wenn die oben genannten Methoden nicht ausreichen, kannst Du auch die Workbook_SheetChange- oder Workbook_SheetActivate-Ereignisse im ThisWorkbook-Modul verwenden:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call Makro1
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele, die Dir helfen können:

  • Makro beim Öffnen eines Tabellenblatts ausführen:
Private Sub Worksheet_Activate()
    MsgBox "Willkommen in Tabelle 1!"
End Sub
  • Ein Makro ausführen, wenn ein bestimmtes Blatt aktiviert wird:
Private Sub Worksheet_Activate()
    If Me.Name = "Tabelle2" Then
        Call Makro2
    End If
End Sub

Tipps für Profis

  • Nutze die Möglichkeit, mehrere Makros zu kombinieren, um komplexere Aufgaben zu automatisieren.
  • Halte Deinen Code übersichtlich und dokumentiere ihn, damit Du später leichter Änderungen vornehmen kannst.
  • Teste Deine Makros gründlich in verschiedenen Szenarien, besonders wenn Du sie beim Öffnen von Tabellenblättern ausführen möchtest.

FAQ: Häufige Fragen

1. Wie kann ich ein Makro beim Öffnen eines Tabellenblatts ausführen?
Du kannst das Worksheet_Activate-Ereignis nutzen, um Dein Makro auszuführen, wenn das Blatt aktiviert wird.

2. Funktioniert das auch in Excel 365?
Ja, die oben beschriebenen Methoden funktionieren in Excel 365 sowie in älteren Versionen wie Excel 2010 oder Excel XP.

3. Was ist, wenn mein Makro nicht ausgeführt wird?
Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind und dass der Code korrekt im richtigen Modul platziert ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige