AW: Tabellen wechsel
03.11.2014 07:40:46
Hajo_Zi
unter DieseArbeitsmappe
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei.
Option Explicit
Private Sub Workbook_Open()
If ActiveSheet.Name = "Tabelle 1" Then
Tabelle_Start
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Tabelle 1" Then
Tabelle_Start
End If
End Sub
in einem Modul
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen.
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen.
Option Explicit
Dim BoWechsel As Boolean
Sub Tabelle_Start()
If BoWechsel = False Then
Application.OnTime Now + TimeValue("00:00:05"), "Tabelle1_Wechsel"
End If
BoWechsel = True
End Sub
Sub Tabelle1_Wechsel()
Worksheets("Tabelle 2").Activate
Application.OnTime Now + TimeValue("00:00:05"), "Tabelle2_Wechsel"
End Sub
Sub Tabelle2_Wechsel()
Worksheets("Tabelle 1").Activate
End Sub