Public Sub MarkierungVorlesen()
    Dim objSpVoice As Object
    Dim strStimme As String
    Dim objZelle As Range
    
    ' Fehlerverfolgung aus
    On Error Resume Next
        
    ' Hier die gewnschte Stimme festlegen
    strStimme = "eSpeak-DE"
    
    ' Verweis auf SpVoice-Objekt holen
    Set objSpVoice = CreateObject("SAPI.SpVoice")
    ' Stimme zuweisen
    Set objSpVoice.Voice = objSpVoice.GetVoices _
      ("Name=" & strStimme).Item(0)
    ' Maximale Lautstrke
    objSpVoice.Volume = 100
    
    ' Alle Zellen der Markierung durchlaufen
    For Each objZelle In Selection
        ' Inhalt der Zelle vorlesen
        objSpVoice.Speak objZelle.Text
    Next
    
    ' Aufrumen
    Set objSpVoice = Nothing
End Sub
