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

Forumthread: Wenn Eintrag in Zelle dann Ton

Wenn Eintrag in Zelle dann Ton
18.07.2008 06:24:00
Stamereilers
Guten Morgen Excel Experten!
Wenn ein Ergebnis in eine Zelle der Spalte D3:D1000 geschrieben wird soll es einen Ton geben.
Geht das als Makro?
Vielleicht könnt ihr mir helfen?
Danke!
Gruß
Rolf

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Eintrag in Zelle dann Ton
18.07.2008 09:49:00
mpb
Hallo Rolf,
in ein normales Modul:
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
In das Klassenmodul der betroffenen Tabelle:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D3:D1000")) Is Nothing Then
Call sndPlaySound32("C:\WINNT\media\ringin.wav", 1)
End If
End Sub


Den Pad und Dateinamen der WAV-Datei anpassen.
Gruß
Martin

Anzeige
AW: Wenn Eintrag in Zelle dann Ton
18.07.2008 15:50:00
Stamereilers
Hallo Martin!
Das Makro funktioniert super!
Würde es eigentlich auch mit Beep gehen?
Danke!
Gruß
Rolf

AW: Wenn Eintrag in Zelle dann Ton
18.07.2008 16:08:55
mpb
Klar:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D3:D1000")) Is Nothing Then
Beep
End If
End Sub


Gruß
Martin

Anzeige
AW: Wenn Eintrag in Zelle dann Ton
18.07.2008 16:18:00
Stamereilers
Hallo Martin!
Funktioniert super!
Danke!
Gruß
Rolf
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alarm bei Zelleingabe: So erzeugst du einen Ton in Excel


Schritt-für-Schritt-Anleitung

Um einen Ton zu erzeugen, wenn ein Eintrag in die Zellen D3:D1000 erfolgt, kannst du ein einfaches Makro in Excel erstellen. Folge diesen Schritten:

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)".
    • Wähle Einfügen > Modul.
  3. Füge den folgenden Code in das Modul ein:

    Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  4. Wechsel zum Klassenmodul der betroffenen Tabelle:

    • Doppelklicke auf "Tabelle1 (Sheet1)" in der Projektliste.
  5. Füge den folgenden Code in das Klassenmodul ein:

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
       If Not Intersect(Target, Range("D3:D1000")) Is Nothing Then
           Call sndPlaySound32("C:\WINNT\media\ringin.wav", 1)
       End If
    End Sub
  6. Passen den Pfad zur WAV-Datei an:

    • Stelle sicher, dass der Pfad zur WAV-Datei korrekt ist.
  7. Speichere die Arbeitsmappe:

    • Speichere die Datei als "Excel-Makro-fähige Arbeitsmappe (*.xlsm)".

Häufige Fehler und Lösungen

  • Fehler: Der Ton wird nicht abgespielt:

    • Lösung: Überprüfe den Pfad zur WAV-Datei und stelle sicher, dass die Datei existiert.
  • Fehler: Makro funktioniert nicht:

    • Lösung: Stelle sicher, dass Makros in deinen Excel-Einstellungen aktiviert sind.

Alternative Methoden

Wenn du lieber die Beep-Funktion verwenden möchtest, hier eine einfache Alternative:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("D3:D1000")) Is Nothing Then
        Beep
    End If
End Sub

Der Beep-Befehl ist eine einfache Methode, um einen akustischen Hinweis zu geben, ohne eine WAV-Datei zu benötigen.


Praktische Beispiele

  1. Ton bei Eingabe in D3:

    • Wenn du in Zelle D3 den Wert "Test" eingibst, wird der Ton abgespielt.
  2. Beep für mehrere Eingaben:

    • Du kannst den Beep-Befehl ebenso in anderen Bereichen anwenden, z.B. in Spalte E.

Tipps für Profis

  • Mehrere Bereiche:

    • Du kannst das Makro leicht anpassen, um auch andere Zellen oder Bereiche zu überwachen, indem du die Range-Angabe änderst.
  • Sounddateien:

    • Experimentiere mit verschiedenen WAV-Dateien, um den Klang zu variieren.

FAQ: Häufige Fragen

1. Frage
Kann ich das Makro auch in Excel Online verwenden?
Antwort: Leider unterstützt Excel Online keine Makros. Du musst eine Desktop-Version von Excel verwenden.

2. Frage
Was mache ich, wenn der Ton zu schnell oder zu langsam abgespielt wird?
Antwort: Das Timing kann nicht direkt im Makro angepasst werden. Du kannst jedoch die WAV-Datei bearbeiten, um die Dauer des Tons anzupassen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige