Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatisch wechselnde Tabellen

automatisch wechselnde Tabellen
25.03.2019 15:46:38
Ronny
Hallo Allerseits,
ich hätte gern zwei Tabellen, welche in einem bestimmten Zeitraum automatisch abwechselnd angezeigt werden. Diese sollen auf einem großen Fernseher angezeigt werden.
Ich nutze Office 2016. Ein how to für Office 2010 funtionierte leider nicht.
Vielen Dank im Voraus.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisch wechselnde Tabellen
25.03.2019 16:11:14
cysu11
Hi Ronny,
das müsste es sein:
https://www.online-excel.de/excel/singsel_vba.php?f=133
LG
Alexandra
AW: automatisch wechselnde Tabellen
25.03.2019 16:12:50
ChrisL
Hi
Modul "DieseArbeitsmappe" 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Abbruch
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Call Intervall
End Sub

Standardmodul 
Dim NextTime As Date

Public Sub Intervall()
NextTime = Now + TimeValue("00:00:10")
Application.OnTime NextTime, "Intervall"
If ActiveSheet.Name = Worksheets(1).Name Then
Worksheets(2).Activate
Else
Worksheets(1).Activate
End If
End Sub

Public Sub Abbruch()
Application.DisplayFullScreen = False
If NextTime > Now Then Application.OnTime NextTime, "Intervall", Schedule:=False
End Sub

cu
Chris
Anzeige
AW: automatisch wechselnde Tabellen
26.03.2019 08:35:00
Ronny
Ihr seid toll :) Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige