Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert einer Zelle als Sprache vorlesen lassen ?

Wert einer Zelle als Sprache vorlesen lassen ?
20.12.2008 10:46:00
Melanie
Hallo allerseits,
kann man sich irgendwie den Zahlenwert einer Zelle als Sprache (Sound) vorlesen lassen ?
Also wenn in A1 der Wert 10 steht (ganzzahlig wuerde schon reichen), soll als sound der entsprechende Wert '10' gesagt werden (natuerlich will ich nicht fuer jeden Zahlenwert ein eigenes Soundfile vorhalten).
Oder gibt es externe Programme, die man per Excel dazu bringen kann, Zahlen (oder super-optimal sogar Text) vorzulesen ? Zur Not wuerde buchstabieren auch reichen.
Irgendwelche Ratschlaege ?
Gruss
Melanie
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert einer Zelle als Sprache vorlesen lassen ?
20.12.2008 11:04:50
ransi
HAllo Melanie
Packe diesen Code mal in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function erzähl_mir_was(strText)
Dim sabbeln As Object
Set sabbeln = CreateObject("SAPI.SpVoice")
sabbeln.Speak strText
Set sabbeln = Nothing
End Function

Der aufruf geht dann so:
Tabelle1

 AB
112340

Formeln der Tabelle
ZelleFormel
B1=erzähl_mir_was(A1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Ist aber leider in Englisch.
ransi
Anzeige
AW: Wert einer Zelle als Sprache vorlesen lassen ?
20.12.2008 11:12:00
ransi
HAllo
Buchstabieren geht dann so:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Public Function erzähl_mir_was(strText)
Dim sabbeln As Object
Dim L As Long
Set sabbeln = CreateObject("SAPI.SpVoice")
For L = 1 To Len(strText)
    sabbeln.Speak Mid(strText, L, 1)
Next
Set sabbeln = Nothing
End Function

ransi
Anzeige
AW: Wert einer Zelle als Sprache vorlesen lassen ?
20.12.2008 17:42:00
Melanie
Hallo,
ist ja echt klasse !!!
Kann man vielleicht die Geschwindigkeit des Sprechens erhoehen oder irgendwie kontrollieren ?
Aber erstmal vielen DANK !!
Gruss
Melanie
AW: Wert einer Zelle als Sprache vorlesen lassen ?
20.12.2008 18:43:11
robert
hi,
unter systemsteuerung-sounds-sprache
gruß
robert
AW: Wert einer Zelle als Sprache vorlesen lassen ?
20.12.2008 19:43:45
Melanie
Hallo,
super! Danke an alle und froehliche Weihnachten !
Gruss
Melanie
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Wert einer Zelle in Excel vorlesen lassen


Schritt-für-Schritt-Anleitung

Um den Wert einer Zelle in Excel als Sprache vorlesen zu lassen, kannst Du den folgenden VBA-Code verwenden.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code in das Modul ein:
Option Explicit

Public Function erzähl_mir_was(strText)
    Dim sabbeln As Object
    Set sabbeln = CreateObject("SAPI.SpVoice")
    sabbeln.Speak strText
    Set sabbeln = Nothing
End Function
  1. Schließe den VBA-Editor und kehre zu Deinem Excel-Arbeitsblatt zurück.
  2. Um den Text oder Zahlenwert einer Zelle vorzulesen, verwende die Funktion in einer anderen Zelle, zum Beispiel:
=erzähl_mir_was(A1)

Wenn in Zelle A1 der Wert 10 steht, wird dieser beim Ausführen der Funktion vorgelesen.


Häufige Fehler und Lösungen

  • Fehler: Der Code wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen und aktiviere die Optionen für Makros.
  • Fehler: Es wird kein Text vorgelesen.

    • Lösung: Überprüfe, ob der Text in der Zelle tatsächlich vorhanden ist und korrekt eingegeben wurde.

Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch externe Programme nutzen, die mit Excel integriert werden können. Einige vorlesen Programme bieten die Möglichkeit, Excel-Daten zu importieren und vorlesen zu lassen. Ein Beispiel dafür wäre die Nutzung von Text-to-Speech-Software, die oft über die Systemsteuerung konfiguriert werden kann.


Praktische Beispiele

  1. Zahlen vorlesen lassen:

    • Wenn in Zelle A1 eine Zahl steht, wie 1234, kannst Du mit der Funktion =erzähl_mir_was(A1) den Wert als Sprache ausgeben lassen.
  2. Text vorlesen lassen:

    • Du kannst auch Text in einer Zelle eingeben, z.B. „Hallo Welt“ und die gleiche Funktion verwenden, um diesen Text vorlesen zu lassen.

Tipps für Profis

  • Um die Geschwindigkeit des Sprechens zu ändern, kannst Du zusätzliche Eigenschaften des SAPI.SpVoice-Objekts nutzen. Hier ein Beispiel, um die Geschwindigkeit zu erhöhen:
Public Function erzähl_mir_was(strText)
    Dim sabbeln As Object
    Set sabbeln = CreateObject("SAPI.SpVoice")
    sabbeln.Rate = 2 ' Erhöht die Geschwindigkeit
    sabbeln.Speak strText
    Set sabbeln = Nothing
End Function
  • Experimentiere mit verschiedenen Sprachen und Stimmen, um das Vorlesen interessanter zu gestalten.

FAQ: Häufige Fragen

1. Kann ich die Sprache ändern, in der der Text vorgelesen wird?
Ja, Du kannst die Stimme in den Einstellungen der Sprachausgabe in der Systemsteuerung ändern.

2. Unterstützung für andere Sprachen?
Die Sprachausgabe unterstützt verschiedene Sprachen, darunter auch Englisch. Du kannst den Text in Englisch eingeben, um ihn in dieser Sprache vorlesen zu lassen.

3. Gibt es eine Möglichkeit, mehrere Zellen gleichzeitig vorlesen zu lassen?
Ja, Du kannst eine Schleife in VBA erstellen, die mehrere Zellen durchläuft und deren Werte vorliest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige