Inhalt der Nebenzelle vorlesen
21.01.2025 17:06:39
Dieter(Drummer)
Von Boris habe ich gestern schon eine tolle Hilfe bekommen, dafür nochmal meinen Dank.
Nun suche ich noch eine Ergänzung:
Es soll nach Aufruf des Codes auch der Inhalt (Text) den Nebenzelle vorgelesen werden.
Meine Versuche mit "Application.Speech.Speak" und "sh.TopLeftCell.Offset(0, 1)", waren ohne Erfolg.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
PS Ich weiß, dass das auch wieder eine verschrobene Idee ist :-)
Jetziger Code ohne Vorlesen der Nebenzelle.
'Herber: {Boris} 20.01.2025 17:23:24
Sub Menue_Start()
Dim sh As Shape
Set sh = ActiveSheet.Shapes(Application.Caller)
Dim s As String
s = "%R" & sh.TopLeftCell.Offset(0, 2)
Application.SendKeys s
End SubAnzeige