Jede einzelne Zelle text to speech zuweisen

Forumthread: Jede einzelne Zelle text to speech zuweisen

19.11.2024 08:55:42

Siegfried Pütz

Guten Morgen,
habe die Frage in einem vorherigen Beitrag schon mal gestellt.
Folgendes: in dem anderen Beitrag habe ich Hilfe erhalten wie man bei einem bestimmten Wert in, z.B. in Zelle "E4", eine sprachliche Mitteilung erhält.
Das funktioniert auch. Doch wenn ich in Zelle "E5" einen andesen Wert eintrage erhalte ich trotzdem die gleiche Mitteilung. Das passiert dann in allen "E" Zellen.
Wie kann ich das verhindern?
Möchte bei erreichen von über 100 (sehr gut), eine anderes Aussage als wie unter 100 (Gut).
Hat jemand eine Lösung?
Gruß,
SiggiP

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Jede einzelne Zelle text to speech zuweisen

19.11.2024 09:25:08

Siegfried Pütz
AW: Jede einzelne Zelle text to speech zuweisen

19.11.2024 09:48:53

Luschi
AW: Jede einzelne Zelle text to speech zuweisen

19.11.2024 10:01:43

Siegfried Pütz
Wie im anderen...

19.11.2024 12:26:11

Case
AW: Wie im anderen...

19.11.2024 13:49:38

Siegfried Pütz
Im Anhang habe...

19.11.2024 14:04:01

Case
AW: Wie im anderen...

19.11.2024 16:19:34

Firmus
AW: Wie im anderen...

19.11.2024 21:47:23

Siegfried Pütz

AW: Jede einzelne Zelle text to speech zuweisen

19.11.2024 09:25:08

Siegfried Pütz

Hier der Code der funktioniert

Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Sh.Name Like "Rd.*" Then
If [d4] > 99 Then Call Main
End If
End Sub

Soll aber nur in D4 und nicht in den anderen zellen ertönen.

Gruß,
SiggiP

AW: Jede einzelne Zelle text to speech zuweisen

19.11.2024 09:48:53

Luschi

Hallo Siegfried,

Soll aber nur in D4 und nicht in den anderen zellen ertönen.

und genau das kann man mit mit den Calculate-Events NICHT abfangen, denn es wird kein Zell-Objekt übergeben, daß sich geändert hat und deshalb 1e Neuberechnung erfolgt.
Ergebnis Deiner Prozedur: solange in [D4] der Wert größer 99 ist, wird die Sprechblase ertönen, auch wenn sich Werte in anderen Zellen dieses Arbeitsblattes ändern, die in Formeln benutzt werden.

Gruß von Luschi
aus klein-Paris

AW: Jede einzelne Zelle text to speech zuweisen

19.11.2024 10:01:43

Siegfried Pütz

Hallo Lutschi,
zuerst einmal Danke für deinen Beitrag.
Genau das ist das Problem. Habe gedacht, es über den Code der Zellen zu realisieren?
Wenn es keine Lösung gibt, geht´s halt nicht.....
Aber die Hoffnung auf eine entsprechende Lösung bleibt.
Gruß,
SiggiP

Wie im anderen...

19.11.2024 12:26:11

Case

Moin, :-)

... Thema schon angesprochen geht das am einfachsten über das "Worksheet_Change Ereignis". Dort kannst du die Zellen überwachen, in denen du etwas einträgst, um dann darauf zu reagieren. ;-)

Also in welchen Zellen gibst du etwas ein und welche Zellen sollen überwacht werden? Am besten so genau wie möglich beschreiben, oder eine Beispieldatei, aus welcher hervorgeht, wo du eingibst und was überwacht wird. ;-)

Servus
Case

AW: Wie im anderen...

19.11.2024 13:49:38

Siegfried Pütz

https://www.herber.de/bbs/user/173703.xlsm

Hier die Beispiel Datei, falls nicht angekommen ist.
Gruß,
SiggiP....
PS.: hatte ich im anderen Forumsthema schon mal hochgelden!

Im Anhang habe...

19.11.2024 14:04:01

Case

Moin, :-)

... ich dir deine Beispieldatei umgearbeitet: ;-)
https://www.herber.de/bbs/user/173704.xlsb

Wenn du in D4:D44 bzw. K4:K33 etwas eingibst, wird geprüft:
Unter 100 wird etwas anderes auegegeben wie über 100. Ist E4 oder L4 dann 0 wird noch was anderes ausgegeben.

Servus
Case

AW: Wie im anderen...

19.11.2024 16:19:34

Firmus

Hallo Siggi,

[d4] im Überwachungsfenster angesehen zeigt, dass es sich um ein Objekt handelt.
Ein Objekt kann nicht mit einer Zahl verglichen werden.

Verwende: If [d4].Cells(1, 1) > 99 Then Call Main

So hat es bei mir funktioniert.

Gruß,
Firmus

AW: Wie im anderen...

19.11.2024 21:47:23

Siegfried Pütz

Hallo Firmus,
danke Dir für den Beitrag. Case hat das schon bearbeitet und es funktioniert. Habe so gut wie keine Ahnung von VBa. Ich lerne durch Versuche. Manchmal Top...meistens Flop.... :-)
Gruß,
SiggiP

Jede einzelne Zelle text to speech zuweisen

Forumthread: Jede einzelne Zelle text to speech zuweisen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread