Registriert seit: 10.08.2016
Version(en): 2010
Guten Tag,
ich hab in Zelle J219
"=WENN(I219<=$U$217;"ABFRAGE MUSS ERFOLGEN";"")
Nun hätte ich gerne ein akustisches Signal sobald der Text in Zelle J212 und auftaucht.
Kann mir da jemand eine VBA für schreiben? Ich habe bereits versucht selbst etwas zu basteln, komme aber nicht weiter.
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
Hallo Timo,
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = "ABFRAGE MUSS ERFOLGEN" Then
Beep
End If
End Sub
einfach in das Blatt einfügen.
VG
Alexandra
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Timo,
folgender Code kommt in das schon vorhandene VBA-Modul des Tabellenblattes:
Private Declare Sub MsgSound Lib "USER32" Alias "MessageBeep" (ByVal BeepType As Long)
Sub Test_MsgSound()
' MsgSound vbCritical 'oder 16 für Kritisch
' Application.Wait Now + TimeSerial(0, 0, 2) '2 Sekunden Pause
' MsgSound vbQuestion 'oder 32 für Frage
' Application.Wait Now + TimeSerial(0, 0, 2) '2 Sekunden Pause
MsgSound vbExclamation 'oder 48 für Hinweis
' Application.Wait Now + TimeSerial(0, 0, 2) '2 Sekunden Pause
' MsgSound vbInformation 'oder 64 für Information
End Sub
Private Sub Worksheet_Calculate()
Static strJ219 As String
If Range("J219").Value = "ABFRAGE MUSS ERFOLGEN" Then
If strJ219 = "" Then
strJ219 = "ABFRAGE MUSS ERFOLGEN"
Test_MsgSound
Else
strJ219 = ""
End If
End If
End Sub
Gruß Uwe
