---

Hallo!

Ich soll für unseren Verein eine Bestehende Exceltabelle in ein pdf konvertieren und dann eine Verknüpfung zu der Excel-Datei herstellen die alle 10 bis 15 Minuten die neuen Ergebnisse auf einem LCD Fernseher im Vereinsraum Updatet.
Das Excel-Sheet enthält verschiedene Tabellenblätter (Damen, Herren, Jugend usw.).
In der Pdf ist jedes Tabellenblatt eine eigene Seite.
Jede Seite hat einen Seitenübergang und die Funktion Automatisch blättern nach 5 Sekunden zugewiesen.
Im Adobe Reader X Vollbildmodus funktioniert das alles einwandfrei, bis auf die letzte Seite, da sollte alles wieder bei der Seite 1 beginnen. Macht es aber nicht.
Auch die Verknüpfung mit dem Original Excel Sheet für die neuesten Ergebnisse bekomme Ich nicht hin.
Gibt es eventuell eine möglichkeilt das nur in Excel zu realisieren?
Kann mir da wer weiter helfen.

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bsp.-code setzt timer, durchläuft dann alle Sheets und wechselt alle 5 sec (default) zwischen Sheetcount 1,2,3 durch - die beiden Calls VollbildAllesAus & Standardansicht sind in der Mappe, Link unten.

Code:

---

Dim timer_enabled As Boolean
Dim timer_interval As Double
Sub cmd_TimerOn()
    Dim interval As Double
    interval = InputBox("intervall in sec", , 5) / 3600 / 24
    Call VollBildAllesAus
    Call timer_Start(interval)
End Sub

Sub cmd_TimerOff()
    Call StandardAnsicht
    Call timer_Stop
End Sub

Sub Timer()
sheetCount = Sheetnr(ActiveSheet.Name)
'MsgBox Worksheets(sheetCount).Name
If sheetCount < 3 Then
    Worksheets(Worksheets(sheetCount + 1).Name).Activate
    Else
    Worksheets(Worksheets(1).Name).Activate
End If
End Sub

Sub timer_OnTimer()
    Call Timer
    If timer_enabled Then Call timer_Start
End Sub

Sub timer_Start(Optional ByVal interval As Double)
    If interval > 0 Then timer_interval = interval
    timer_enabled = True
    If timer_interval > 0 Then Application.OnTime (Now + timer_interval), "Timer_OnTimer"
End Sub

Sub timer_Stop()
    timer_enabled = False
End Sub

Function Sheetnr(Shtnm As String)
For i = 1 To ActiveWorkbook.Sheets.Count
    If Sheets(i).Name = Shtnm Then
        Sheetnr = i
        Exit Function
    End If
Next i
Sheetnr = ""
End Function

---

http://dl.dropbox.com/u/11817810/XL2003%20Excel%20TimerExample.xls

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Code.

Funktioniert einwandfrei.

------------------
Mit freundlichen Grüßen

CADdoctor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP