Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Markierten Zellinhalt vorlesen

Markierten Zellinhalt vorlesen
29.10.2015 18:17:13
Dieter(Drummer)
Guten Tag, VBA Spezialisten,
mit folgendem Makro kann der Inhalt der Zelle A1 vorgelesen werden (Makro aus dem Forum):
  • 
    Sub VorLesen()
    Dim objSpeaker As Object, x&
    Set objSpeaker = CreateObject("SAPI.SpVoice")
    objSpeaker.Volume = 100
    For x = 1 To 1
    objSpeaker.Speak Range("A" & x)
    Next
    End Sub
    

  • Wenn ich diese Zeile ändere:
  • For x = 1 To 2

  • wird der Inhalt von A1und A2 vorgelesen.
    Kann das Makro so geändert werden das der markierte Bereich vorgelesen wird, ohne die direkte Angabe im Makro, welche Zelle(n) vorgelesen werden sollen?
    Freue mich. wenn das möglich wäre.
    Gruß, Dieter(Drummer)

    3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Markierten Zellinhalt vorlesen
    29.10.2015 18:19:38
    Daniel
    Hi
    dim Zelle as Range
    for each Zelle in Selection
    objSpeaker.Speak Zelle.Value
    Next
    
    Gruß Daniel

    For each zelle in selection.cells
    29.10.2015 18:20:04
    ransi
    Hallo Dieter
    ungetestet.
    dim Zelle as range
    For each zelle in selection.cells
    objSpeaker.Speak zelle
    Next
    ransi

    AW: Danke Daniel und Ransi, einfach toll
    29.10.2015 18:28:41
    Dieter(Drummer)
    herzlichen Dank und es funktioniert prima! Habe es jetzt so:
    Sub VorLesen()
    Dim Zelle As Range
    Dim objSpeaker As Object, x&
    Set objSpeaker = CreateObject("SAPI.SpVoice")
    objSpeaker.Volume = 100
    For Each Zelle In Selection.Cells
    objSpeaker.Speak Zelle
    Next
    End Sub
    
    Noch einen schönen Abend und
    Gruß, Dieter(Drummer)
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige