Zellinhalt vorlesen und Inhalt der Zellnotiz
30.10.2015 10:17:52
Dieter(Drummer)
mit diesem Makro wird der Inhalt der markierten Zellen vorgelesen. Dank nochmal an die gestrige Erweiterung von Daniel und Ransi.
Ist es möglich, dass auch der evtl. Inhalt der Zellennotiz(en) wahlweise auch vorgelesen werden kann?.
Sub VorLesen2() 'Alle markierten Zellen
Dim Zelle As Range 'Anpassung von Herber: Daniel und Ransi 29.10.2015
Dim objSpeaker As Object, x&
MsgBox "Inhalte der markierten Zellen werden vorgelesen"
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
For Each Zelle In Selection.Cells 'Anpassung von Herber: Daniel und Ransi
objSpeaker.Speak Zelle 'Anpassung von Herber: Daniel und Ransi
Next
End Sub
Wäre toll, wenn mir das Makro jemand anpassen könnte.
Mit Gruß, Dieter(Drummer)