AW: Warnmeldung bei "Summe größer als x"
08.07.2008 09:25:29
Chris
Servus Susanne,
mal ein Beispiel:
Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
in ein allgemeines Modul
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WshShell
Dim intText As Integer
If Target.Address = "$H$16" Then
If Target = "" Then Exit Sub
If IsNumeric(Target) And Target > 800 Then
Call sndPlaySound32("C:\Alte Daten\Daten\SONSTIGES\Scheißbirschdn.wav", 1)
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Erinnerungstext", 10, "Erinnerung", vbSystemModal)
End If
End If
End Sub
ins Modul des Tabellenblattes.
Wenn du in H16 einen Wert größer 800 eingibst, erklingt ein Sound und es geht ein Popup-Fenster auf, das sich nach 10 Sek. schließt (die 10 in inText).
Die .wav-Datei muss im angegebenen Pfad existieren, dass musst du noch anpassen, sonst gibt's natürlich einen BUG.
Gruß
Chris