Akustisches Signal bei Ereichen der Uhrzeit

Moderator: ModerationP

Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Bernd Kl » 16. Mai 2019, 13:06

Hallo;
Gibt es die Möglichkeit, dass der PC ein akustisches Signal ausgibt, wenn eine vorher fest gelegt Uhrzeit erreicht ist?

Ich habe in der Spalte D eine Tabelle untereinander von Zeile 4 bis Zeile 50 festgelegte Uhrzeiten und in der Zelle f2 die Uhrzeit.

Immer wenn in der Zelle e4 die eingetragene Zeit mit der Uhrzeit in F2 identisch ist, soll ein Signal ertönen.


Gruß
Bernd
Bernd Kl
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 29
Registriert: 03. Jan 2019, 11:24
Wohnort: Dänische Grenze; hoch im Norden

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Ralf A » 16. Mai 2019, 13:10

Hi Bernd,

verwende OnTime: https://docs.microsoft.com/de-de/office ... ion.ontime
Ob Du dann Beep verwendest oder eine Sounddatei startest, bleibt Dir überlassen...
Ciao, Ralf
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.

Bild
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 452
Registriert: 17. Mär 2018, 11:47

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Hajo_Zi » 16. Mai 2019, 13:12

Hallo Bernd,

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Code: Alles auswählen
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" And Range("E2") = Range("F2") Then
        MsgBox "gleiche Zeit"
    End If
End Sub


Gruß Hajo
Signatur
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Office 2016 Plus - 32 Bit.
Da die Mailbenachrichtigung bei mir nicht geht. Weitere Antworten dem Zufall überlassen.
Falls lange keine Antwort kommt, PN.
Benutzeravatar
Hajo_Zi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3825
Registriert: 31. Jan 2004, 18:26
Wohnort: Straubing

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Bernd Kl » 16. Mai 2019, 14:05

Hallo & Danke für die Antwort.

Goethe sagte: Jede Lösung eines Problems hat ein anderes Problem zur Folge.
So auch hier.
Der Code beißt sich mit dem hier aufgeführten.

Private Sub Worksheet_Change(ByVal Target As Range)
'
' wandelt Zahlen in das Uhrzeitformat
' Die Eingabe erfolgt als "700".
' Die Umwandlung von 700 in "07:00" erfolgt durch diesen Code
'
Dim sTxt As String
If Target.Column < 2 Or Target.Column > 2 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
ErrorHandler:
ActiveCell.ClearContents
Application.EnableEvents = True

End Sub

' Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.Address = "$E$2" And Range("E2") = Range("F2") Then
' MsgBox "gleiche Zeit"
' End If
'End Sub
Bernd Kl
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 29
Registriert: 03. Jan 2019, 11:24
Wohnort: Dänische Grenze; hoch im Norden

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Hajo_Zi » 16. Mai 2019, 14:17

mit Exit Sub sollte man nicht arbeiten.
es gibt nur ein Change.
Warum nicht vor
Dim STxT?

Gruß hajo
Signatur
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Office 2016 Plus - 32 Bit.
Da die Mailbenachrichtigung bei mir nicht geht. Weitere Antworten dem Zufall überlassen.
Falls lange keine Antwort kommt, PN.
Benutzeravatar
Hajo_Zi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3825
Registriert: 31. Jan 2004, 18:26
Wohnort: Straubing

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Bernd Kl » 16. Mai 2019, 14:41

Hallo;
ich habe das mal so verschoben, doch das funktioniert nicht.
Ich werde mal darüber nachdenken, den 2. Code einfach in ein anderes Blatt setzen und auch dort die Endzeit und den Timer hineinzu setzen.
Sieht dann zwar etwas komisch aus, doch evtl. funktioniert es dann.
Also erst einmal herzlichen Dank.

PS: Exit Sub habe ich vor etwa 8 Jahren hier so gelernt und in meinem Alter (75) bin ich nicht mehr so fit. :-)
Bernd Kl
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 29
Registriert: 03. Jan 2019, 11:24
Wohnort: Dänische Grenze; hoch im Norden

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Hajo_Zi » 16. Mai 2019, 14:58

Ja das sehe ich auch so es ist zu kompliziert <> durch = zu ersetzen.
If Target.Column >1 Or Target.Column =1 Then

dazu kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue und ich baue keine Datei nach.

Gruß Hajo
Signatur
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Office 2016 Plus - 32 Bit.
Da die Mailbenachrichtigung bei mir nicht geht. Weitere Antworten dem Zufall überlassen.
Falls lange keine Antwort kommt, PN.
Benutzeravatar
Hajo_Zi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3825
Registriert: 31. Jan 2004, 18:26
Wohnort: Straubing

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Ralf A » 16. Mai 2019, 16:11

von Hajo_Zi » 16. Mai 2019, 14:17
mit Exit Sub sollte man nicht arbeiten.


Wer erzählt denn so einen Schwachsinn? Die, die immer behaupten, Goto verwendet man nicht? Die, die nie eine ordentliche Fehlerbehandlung berücksichtigen? Na ja, die dürfen das. Die genießen ja Narrenfreiheit...
Ob die Fehlerbehandlung hier, an dieser Stelle, gelungen ist, das ist eine andere Frage...

...ich warte noch auf den Tag, an dem jemand behauptet: Sub oder For oder Do verwendet man nicht... :mrgreen:
Ciao, Ralf
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.

Bild
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 452
Registriert: 17. Mär 2018, 11:47

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Bernd Kl » 17. Mai 2019, 04:44

He Leute;

tut mir ja leid, dass ich hier offensichtlich einen Streit ausgelöst habe - nur das hilft mir nicht weiter.

Habt Ihr nun einen Tipp für mich oder muss ich das Vorhaben aufgebe?
Das wäre zwar kein Weltuntergang, doch freuen würde ich mich trotzdem.
Bernd
Bernd Kl
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 29
Registriert: 03. Jan 2019, 11:24
Wohnort: Dänische Grenze; hoch im Norden

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon zoxxy » 17. Mai 2019, 07:38

Hallo!

Schau dir mal diese Seite an http://www.cpearson.com/excel/PlaySound.aspx
      Gruß
<('.'<)(>'.')>
      zoxxy
Benutzeravatar
zoxxy
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 518
Registriert: 05. Apr 2016, 12:49

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Flotter Feger » 17. Mai 2019, 07:43

Hallo Bernd,

Schau mal hier https://www.clever-excel-forum.de/thread-20639.html
Du musst dich anmelden, um die Datei runterzuladen.

Vom Blackberry gesendet
VG Sabina

bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Benutzeravatar
Flotter Feger
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2202
Registriert: 24. Okt 2016, 16:40

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Bernd Kl » 18. Mai 2019, 08:32

Liebe Leute;

ich habe das Vorhaben aufgegeben, da es offensichtlich nicht möglich ist den Code in den bestehenden zu integrieren.
Ich danke Euch für Eure Mühe.
Bernd
Bernd Kl
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 29
Registriert: 03. Jan 2019, 11:24
Wohnort: Dänische Grenze; hoch im Norden

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Storax » 18. Mai 2019, 09:16

Bernd Kl hat geschrieben:Liebe Leute;

ich habe das Vorhaben aufgegeben, da es offensichtlich nicht möglich ist den Code in den bestehenden zu integrieren.
Ich danke Euch für Eure Mühe.
Bernd

Ergänzung: Für Dich nicht möglich.
Die Tipps, die ich hier sehe, sind ausreichend.
Benutzeravatar
Storax
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3359
Registriert: 22. Okt 2013, 18:18

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon Bernd Kl » 18. Mai 2019, 09:29

Sorry Storax. Du hast natürlich Recht.
Ich bin nicht mehr fit genug, um das zu wuppen.

Vor 10 Jahren war das noch anders. Inzwischen bin ich einfach zu alt geworden und habe in der Zeit nix mehr mit VBA gemacht.
Trotzdem danke.
Gruß
Bernd
Bernd Kl
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 29
Registriert: 03. Jan 2019, 11:24
Wohnort: Dänische Grenze; hoch im Norden

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitragvon russian-dima » 18. Mai 2019, 10:56

Hallo Bernd,
vielleicht hilft dir ja ein einfaches kleines Beispiel weiter.

Einfach mal so testen wie es in der Beschreibung steht. Dann einmal in den VBA-Editor reingehen (ALT+F11) und schauen wie es funktioniert. :mrgreen:

LG Russi@n-Dim@
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Du hast noch Fragen? Dann schreib mich einfach an :mrgreen: :wink:
Ein Feedback ist immer willkommen :wink:
Benutzeravatar
russian-dima
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1083
Registriert: 12. Mär 2016, 19:29


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: silangan und 23 Gäste