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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value > 5 Then Call LaufwerkARufen
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value > 5 Then Call LaufwerkARufen
End Sub
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
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
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$8" Then
Beep
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$8" Then
Beep
End If
End Sub