Tabellen oder Bereiche aus Excel vorlesen lassen

Hier ein Stückchen Code welcher beliebige Zahlen- bzw. Datenreihen aus Excel vorließt:

Option Explicit

Public Sub Vorlesen()

    Dim objSpeaker As Object
    Dim cell As Range
    Set objSpeaker = CreateObject("SAPI.SpVoice")
    Set objSpeaker.Voice = objSpeaker.GetVoices("Name=Microsoft Anna").Item(0)
    objSpeaker.Volume = 100
    For Each cell In Range("C2:C180")   ‚ hier steht der Zellenbereich
        objSpeaker.Speak cell.Text
    Next
    Set objSpeaker = Nothing
End Sub

Einfach ein Modul hinzufügen und den Code einfügen und über das Direktfenster Vorlesen aufrufen. Der Code wurde auf Excel 2007 unter Windows 7 getestet und hat problemlos funktioniert. Sollte eigentlich bis hinunter zu Excel 2000 funktionieren, solange der Rechner mit SAPI ausgestattet ist.

In diesem Zusammenhang war enttäuschend zu sehen, das Microsoft auch bei Windows 7 immer noch keinen Codec für eine deutsche Stimme mitliefert. So verhilft dies der Technologie nie zum Durchbruch, von Texterkennung per Spracheingabe ganz zu schweigen.