Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Akustische Meldung

Forumthread: Akustische Meldung

Akustische Meldung
21.03.2006 10:34:39
Tobias
Hallo Ihr lieben Experten!
Ist es möglich eine Eingabemeldung (Daten/ Gültigkeit) mit einem Sound zu hinterlegen? Oder gibt es eine andere Möglichkeit zu einer Zelle beim Verlassen oder Auswählen einen Hinweis zu geben.
Grüße und Vielen Dank
Tobias
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Akustische Meldung
21.03.2006 11:03:30
Harald
Hallo Tobias,
ich lass mich mal von deinem vba-nein nicht beeindrucken ;-)), imho wirst du ohne vba nicht weit kommen.
Diesen Code ins Blattmodul.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value > 5 Then Call LaufwerkARufen
End Sub

Das ist der Auslöser. Nach Drücken der Enter-Taste prüft er, ob A1 die aktive Zelle war und der Wert darin über 5 liegt. Haaalt...noch nicht testen. ;-))
Zuerst musst Du noch ein Modul in die Mappe einfügen und das da reinkopieren (Quellcode von der Herber'schen Excel-CD).
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub LaufwerkARufen()
Dim mucke As String
mucke = "C:\Programme\Windows NT\Pinball\SOUND1.wav"
Call sndPlaySound32(mucke, 1)
End Sub
Nun sollte es funzen. Wenn nicht, musst Du halt eine andere *.WAV- Datei angeben.
Gruss Harald
Anzeige
AW: Akustische Meldung
21.03.2006 11:09:01
Tobias
...mmmh
Was muss ich da wo eingeben?
:-)
AW: Akustische Meldung
21.03.2006 11:30:27
Harald
Hi,
step-by-step
rechte Maustaste auf den Tabellenblattname. Code anzeigen aufklicken.Du bist nun im vba-Editor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value > 5 Then Call LaufwerkARufen
End Sub

ins rechte Codefenster kopieren.
Was, wo geprüft werden soll ist scheinbar dein Geheimnis, daher lasse ich nur Zelle A1 auf Werte über 5 prüfen ;-))
Sodann drückst du bei gedrückter ALT-Taste die Tasten E und M
Somit hast Du ein Modul erzeugt und ins rechte Code-Fenster folgendes kopieren.
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub LaufwerkARufen()
Dim mucke As String
On Error GoTo 0
mucke = "C:\Programme\Windows NT\Pinball\SOUND1.wav"
Call sndPlaySound32(mucke, 1)
End Sub
Fertich ;-))
Unter mucke ist Pfad und Dateiname der WAV-Datei.
Sollte nur ein Beep zu hören sein, mußt Du auf deinem PC nach vorhandenen *.wv - Dateien suchen und den Pfad- /Dateinamen ändern.
Gruss Harald
Anzeige
AW: Zusatz Fehler abfangen
21.03.2006 12:03:50
Harald
Hi,
ist die gesuchte Datei nicht zu finden, kannst Du noch eine Mitteilungsbox und den Programmabbruch wie folgt einbinden.

Sub LaufwerkARufen()
Dim mucke As String
mucke = "C:\Programme\Windows NT\Pinball\SOUND9.wav"
If Dir(mucke) = "" Then
MsgBox "Schei...benkleister. Die Mucke is nich zu finden"
Exit Sub
End If
Call sndPlaySound32(mucke, 1)
End Sub

Gruss Harald
Anzeige
AW: Akustische Meldung
21.03.2006 12:42:34
Tobias
Hallo Harald!
Klappt schon mal prima - vielen Dank.
Wenn ich jetzt noch wüßte, wie man das für eine Spalte A1:16 schreiben muss und das dann auf größer 0 prüft wäre alles Super.
Danke schon mal.
Grüße tobias
AW: Akustische Meldung
21.03.2006 12:59:04
Harald
Hi,
tausche den Code im Blattmodul gegen diesen Code aus.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A16")) Is Nothing And IsNumeric(Target.Value) Then
If Target.Value > 0 Then Call LaufwerkARufen
End If
End Sub

zur erklärung
Abbruch bei mehr als einer selektierten Zelle.
Wenn aktive Zelle im angegebenen Range liegt und der eingegebene Wert numerisch ist dann
Wenn der Wert größer Null ist, den angegebenen Code aufrufen.
Gruss Harald
Anzeige
AW: Akustische Meldung
21.03.2006 13:13:02
Tobias
SUPER Vielen Dank!
Danke für die Rückmeldung owT
21.03.2006 13:14:35
Harald
Gruss Harald
AW: Akustische Meldung
21.03.2006 11:12:30
Franz
Hallo Tobias,
Hinterlegen der Meldung mit Sound geht meines wissens nicht. Man kann allerdings die Selektion der Zelle per Malro mit einem Beep-Ton verbinden (Beep ist dann ein Systemklang)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$8" Then
Beep
End If
End Sub

Beim Auswählen der Zelle einen Hinweis ausgeben. Diesen kannst Du bei Daten/Gültigkeit einstellen. Alternative wäre eine Meldebox, die bei Selektion der Zelle per Makro angezeigt wird.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$8" Then
Beep
End If
End Sub

Die If-Bedingung fragt hier immer eine Zelle ab. Man kann diese natürlich anpassen um Zellbereiche zu überwachen.
Gruß
Franz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige