Akustisches Signal bei Ereichen der Uhrzeit

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Akustisches Signal bei Ereichen der Uhrzeit

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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@

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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.

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von zoxxy » 17. Mai 2019, 07:38

Hallo!

Schau dir mal diese Seite an http://www.cpearson.com/excel/PlaySound.aspx

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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:

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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. :-)

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Re: Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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...

Akustisches Signal bei Ereichen der Uhrzeit

Beitrag von 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

Nach oben

cron