Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro immer wieder ausführen (Schleife)
zurück: Auswahl und Filter über Dropdown-Menü weiter: Diagrammbeschriftung (2 Datenwerte, aber nur Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Christian_R
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 13:27
Rufname:

Makro immer wieder ausführen (Schleife) - Makro immer wieder ausführen (Schleife)

Nach oben
       Version: Office 2010

Hallo Leute

Ich habe ein Makro für eine Slideshow, dass 2 Sheets mit einem Zeitabstand anzeigt, leider hört das Makro nach einem durchlauf auf!

Kann ich das Marko so einrichten, dass es sich immer wieder wiederholt?

hier mein Makro:

Sub SlideShow()
Sheets("Ausgabe_Tagesinfo").Select
Application.Wait (Now + TimeValue("0:00:05"))
Sheets("Ausgabe_Monatsinfo").Select
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
werni
Solala


Verfasst am:
30. Apr 2014, 14:52
Rufname: werni
Wohnort: Ennenda GL

AW: Makro immer wieder ausführen (Schleife) - AW: Makro immer wieder ausführen (Schleife)

Nach oben
       Version: Office 2010

Hallo Christian

Code im Modul DieseArbeitsmappe
Code:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Stopp
    Tabelle1.CommandButton1.Caption = "Start"
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub

Private Sub Workbook_Open()
    Sheets("Ausgabe_Tagesinfo").Select
End Sub

Code im Modul Tabelle1 (Mit CommandButton zum Starten)
Code:
Option Explicit

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Start" Then
            CommandButton1.Caption = "Stopp"
        Start
    Else
            CommandButton1.Caption = "Start"
        Stopp
    End If
End Sub

Code in normalem Modul
Code:
Option Explicit
Private UhrAktiv As Boolean
Dim i As Long
Public Sub Wechseln()
    If UhrAktiv = True Then
    If ActiveSheet.Name = "Ausgabe_Monatsinfo" Then
    Sheets("Ausgabe_Tagesinfo").Select
    Else
    Sheets("Ausgabe_Monatsinfo").Select
    End If
    Application.OnTime Now + TimeValue("00:00:05"), "Wechseln"
    End If
End Sub
Public Sub Stopp()
    UhrAktiv = False
    For i = 1 To 10000
    DoEvents
    Next
End Sub
Public Sub Start()
    UhrAktiv = True
    Wechseln
End Sub

Gruss werni

Edit: Kann immer noch keine Dateien anhängen!

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: 2 Texte in eine Zelle per Makro ?! 4 ANNAN 683 26. Okt 2007, 23:47
ANNAN 2 Texte in eine Zelle per Makro ?!
Keine neuen Beiträge Excel Formeln: Makro mit Formel 1 didimaus 467 18. Okt 2007, 12:17
fridgenep Makro mit Formel
Keine neuen Beiträge Excel Formeln: Excel Makro - Summe bilden bei gleichen Suchkriterien 1 Peter1983 3827 26. Sep 2007, 09:39
Alto Excel Makro - Summe bilden bei gleichen Suchkriterien
Keine neuen Beiträge Excel Formeln: automatisches makro 5 sisku46 1297 08. Aug 2007, 09:12
sisku46 automatisches makro
Keine neuen Beiträge Excel Formeln: Brauche Hilfe! Formel und/oder VBA (Makro) 2 ::Patrick:: 2927 01. Aug 2007, 10:42
Gast Brauche Hilfe! Formel und/oder VBA (Makro)
Keine neuen Beiträge Excel Formeln: MsgBox if then programmieren das start Makro bei Yes 0 Klaususv 2591 18. Jul 2007, 12:21
Klaususv MsgBox if then programmieren das start Makro bei Yes
Keine neuen Beiträge Excel Formeln: Namenfeld der Zelle mittels Formel oder Makro benennen 2 cehrat 1181 24. Mai 2007, 16:55
fridgenep Namenfeld der Zelle mittels Formel oder Makro benennen
Keine neuen Beiträge Excel Formeln: Formel mit verketten erstellen und dann ausführen 1 Eckhart 10783 15. Feb 2007, 15:19
fridgenep Formel mit verketten erstellen und dann ausführen
Keine neuen Beiträge Excel Formeln: Excel: Verketten Wenn (Makro?) 11 Sarah1981 4108 08. Feb 2007, 10:59
Gast Excel: Verketten Wenn (Makro?)
Keine neuen Beiträge Excel Formeln: Lese- und Schreibschutz über Makro 0 steven143 876 18. Dez 2006, 13:52
steven143 Lese- und Schreibschutz über Makro
Keine neuen Beiträge Excel Formeln: End up, Markieren, Löschen mit Makro 10 detlef42 1290 21. Nov 2006, 16:13
Detlef 42 End up, Markieren, Löschen mit Makro
Keine neuen Beiträge Excel Formeln: Makro mit Selection.AutoFill 2 GastAlex 3911 18. Okt 2006, 15:25
GastAlex Makro mit Selection.AutoFill
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme