Thema Datum  Von Nutzer Rating
Antwort
Rot Registerblätter in Endlosschleife anzeigen (2)
 17.12.2021 16:38:00 Holdrio
NotSolved
18.12.2021 09:13:48 RPP63
NotSolved
19.12.2021 18:21:39 Holdrio
Solved

Ansicht des Beitrags:
Von:
Holdrio		 Datum:
17.12.2021 16:38:00		 Views:
696		 Rating:
     
Antwort:
  Ja
Thema:
Registerblätter in Endlosschleife anzeigen (2)

Liebe Forumer,

mit folgendem Code in einem Standardmodul, den ich im Forum gefunden habe, wird eine geöffnete Arbeitsmappe nach Ablauf der in TimeValue anzugebenen Zeit regelmäßig aktualisiert.

Sub Workbook_open()
Application.OnTime Now + TimeValue("00:01:00"), "LinksAktualisieren"
End Sub
Sub LinksAktualisieren()
ThisWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Application.OnTime Now + TimeValue("00:01:00"), "LinksAktualisieren"
End Sub

Das funktioniert hervorragend. Dies möchte ich jetzt so erweitern, dass jeweils nach dieser TimeValue-Zeit nicht nur die Arbeitsmappe aktualisiert sondern auch das nächste Registerblatt angezeigt wird. Ein Beispiel: Wir haben eine Arbeitsmappe mit vier Registerblättern. Im Moment soll das Blatt 2 aktiv sein bzw. angezeigt werden. Nach der TimeValue-Zeit soll dann das Blatt 3 erscheinen, dann nach dieser Zeit Blatt 4 und dann Blatt 1 und dann wieder Blatt 2 u.s.w.

Wie sieht der erweiterte VBA-Code hierzu aus?

lg Holdrio

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Registerblätter in Endlosschleife anzeigen (2)
 17.12.2021 16:38:00 Holdrio
NotSolved
18.12.2021 09:13:48 RPP63
NotSolved
19.12.2021 18:21:39 Holdrio
Solved