Office: (Office 2019) Countdown mit Alarm

Helfe beim Thema Countdown mit Alarm in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen ich habe einen Countdown mit VBA erstellt und würde diesen jetzt gerne mit Ablauf ein ton/Signal hören wollen. Hätte da einer eine idee... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Speed1988, 21. April 2021.

  1. Speed1988 Neuer User

    Countdown mit Alarm


    Hallo zusammen ich habe einen Countdown mit VBA erstellt und würde diesen jetzt gerne mit Ablauf ein ton/Signal hören wollen. Hätte da einer eine idee wie das funktionieren könnte?

    Hier erst mal meine VBA:
    Private t As Boolean

    Sub starten()

    t = True

    zeit = Time + TimeSerial(0, 0, 1)

    Application.OnTime zeit, "generate"

    End Sub

    Sub generate()

    Sheets(1).Cells(24, 1).Value = Time
    Sheets(1).Cells(23, 1).Value = Date

    If t = True Then starten

    End Sub

    Sub beenden()

    t = False

    End Sub

    So sieht das ganze aus
     
    Speed1988, 21. April 2021
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    sehe ich es falsch, Dein Code hat kein Ende?
    Ich sehe auch kein Zeit Ende?

    Countdown mit Alarm GrußformelCountdown mit Alarm Homepage
     
    Hajo_Zi, 21. April 2021
    #2
  3. Speed1988 Neuer User
    Wie meinst du das. Also der countdown läuft runter wenn ich es aktiver
     
    Speed1988, 21. April 2021
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Countdown mit Alarm

    es läuft aber bis unendlich.
    Das habe ich wohl falsch gesehen und bin raus.

     
    Hajo_Zi, 21. April 2021
    #4
  5. Speed1988 Neuer User
    Hajo ich bin würde auch eine alternative in erwägungu ziehen wenn das ziel das gleiche ist!
     
    Speed1988, 21. April 2021
    #5
  6. Beverly
    Beverly Erfahrener User
    Hi,

    meinst du so etwas:

    Code:
    Option Explicit
    Dim datDate As Date
    Dim blnAus As Boolean
    
    Sub Starten()
        blnAus = False
        Zeitmakro
    End Sub
    
    Sub Zeitmakro()
        Sheets(1).Cells(24, 1).Value = Time
        Sheets(1).Cells(23, 1).Value = Date
        If blnAus Then
            Beep
            Exit Sub
        End If
        datDate = Now + TimeValue("00:00:01")
        Application.OnTime datDate, "Zeitmakro"
    End Sub
    
    Sub Beenden()
        blnAus = True
    End Sub
    


    Countdown mit Alarm GrußformelCountdown mit Alarm Beverly's Excel - Inn
     
    Beverly, 21. April 2021
    #6
  7. Speed1988 Neuer User
    Hey Beverly Ich habe das jetzt so Kopiert von dir die zeit läuft auch runter aber es kommt kein ton
    Bei mir sieht das dann so aus wie im anhang eventuel mache ich auch was mit dem countdown falsch. nicht von den zeichen iritieren lassen das kommt wenn der countdown abgelaufen ist
     
    Speed1988, 23. April 2021
    #7
  8. Beverly
    Beverly Erfahrener User

    Countdown mit Alarm

    Und was soll mir dein Bild sagen?

    Bei mir läuft mein Code problemlos - sobald ich das Beenden-Makro ausführe, stoppt die Zeiteintragung und es ist ein kurzer Ton zu hören.


    Countdown mit Alarm GrußformelCountdown mit Alarm Beverly's Excel - Inn
     
    Beverly, 23. April 2021
    #8
  9. Speed1988 Neuer User
    Also ich glaube wir haben uns da missverstanden ich möchte gerne das wenn der Coutdownzähler auf 0 ist das es einen Ton gibt. Das heißt also ich habe die jetzt zeit und in einer bestiimmten zeit ist der Coudtwon abgelaufen das dann ein Ton erklingt
     
    Speed1988, 23. April 2021
    #9
  10. Beverly
    Beverly Erfahrener User
    In deinem Code gibt es nirgendwo einen Zähler der herunterzählt, es wird nur einfach die Zeit sekundenweise hochgezählt und in die Zelle geschrieben.

    Code:
    Option Explicit
    Dim datDate As Date
    Dim lngZaehler As Long
    
    Sub Starten()
        lngZaehler = 20  '<== Maximalwert von dem aus heruntergezählt wird anpassen!!!!
        Zeitmakro
    End Sub
    
    Sub Zeitmakro()
        Sheets(1).Cells(24, 1).Value = Time
        Sheets(1).Cells(23, 1).Value = Date
        lngZaehler = lngZaehler - 1
        If lngZaehler = 0 Then
            Beep
            Exit Sub
        End If
        datDate = Now + TimeValue("00:00:01")
        Application.OnTime datDate, "Zeitmakro"
    End Sub
    


    Countdown mit Alarm GrußformelCountdown mit Alarm Beverly's Excel - Inn
     
    Beverly, 23. April 2021
    #10
Thema:

Countdown mit Alarm

Die Seite wird geladen...
  1. Countdown mit Alarm - Similar Threads - Countdown Alarm

  2. Auswertung Alarme

    in Microsoft Excel Hilfe
    Auswertung Alarme: Schönen guten Tag Ich benötige eure Hilfe. Ich möchte eine Auswertung mit Exel von verschiedenen Alarmen machen. Um mir die arbeit zu erleichtern wäre es super wenn ich in der einen Tabelle...
  3. Glücksrad mit VBA und For-Schleifen

    in Microsoft Excel Hilfe
    Glücksrad mit VBA und For-Schleifen: Hallo zusammen! Da ich hier immer Hilfe finde wende ich mich mal wieder mit folgendem Problem an euch: Ich möchte in Excel etwas auslosen. Das ansich ist auch kein Problem. Damit es etwas...
  4. Countdown Öffnungszeiten

    in Microsoft Excel Hilfe
    Countdown Öffnungszeiten: Hallo, ich habe ein Problem und komme einfach nicht weiter: In einer Tabelle sollen Öffnungszeiten angezeigt werden, dabei steht in Spalte 1 der Name, in Spalte 2 die Öffnungszeit, in Spalte...
  5. Countdown

    in Microsoft PowerPoint Hilfe
    Countdown: Hallo Ich habe eine PowerPoint Präsentation erstellt und möchte als erste Folie einen Countdown bis zu Präsentationsbeginn erstellen. Also vor der Präsentation werde ich mit dieser Folie starten...
  6. Countdown einfügen

    in Microsoft PowerPoint Hilfe
    Countdown einfügen: Hallo zusammen, ich möchte in einer Präsentation einen Countdown einfügen. Dieser sollte auf der letzten Folie eingefügt werden und den Teilnehmern symbolisieren, wie viel Zeit Ihnen noch bis...
  7. Countdown

    in Microsoft Excel Hilfe
    Countdown: Hallo Mein Problem ist folgendes. Ich hab in ner Tabelle verschiedene Charaktäre von einem Spiel aufgeführt welche alle Weiterbildungen am laufen haben. Diese zeiten ändern sich mit jeder Stufe....
  8. Arbeitsmappe nach Ablauf von Countdown schliessen

    in Microsoft Excel Hilfe
    Arbeitsmappe nach Ablauf von Countdown schliessen: Hallo, ich schon wieder. hat jemand eine Idee wie man eine Arbeitsmappe nach einer voreingestellten Zeit sich automatisch schliessen lassen kann? die User sollen nur eine gewisse Zeit (ca 10 -...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden