Beep-Ton funktioniert nur unter 2007
03.10.2012 17:19:52
Albert
auf einem Rechner mit Office 2007 habe ich folgenden Code geschrieben.
Der Code überprüft die Eingabe, ob ein %-Zeichen vorhanden ist bzw. die zweite Eingabe numerisch ist!
Nun lasse ich den selben Code auf einem anderen Rechner mit Office 2010 laufen und der Beep-Ton funktioniert nicht.
Anbei mal den Code.
Declare
Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub Erstzählung_eingeben()
Dim Zeile As Long
Dim C As Variant
Dim intR As Integer
Dim L As Long
Dim EingabeMenge As Variant
intR = MsgBox("Achtung, sie wollen die Erstzählung eingeben! Ist das korrekt?", _
vbYesNo + vbQuestion, "Abfrage")
If intR = 6 Then
MsgBox "Bitte Lautsprecher einschalten und Lautstärke erhöhen!"
Do Until EingabeNr$ = "Ende"
EingabeNr$ = InputBox("TE-Nummer erfassen! Zum Beenden 'Ende' eintippen", "Erstzählung")
If EingabeNr$ "Ende" Then
If IsNumeric(EingabeNr$) = "False" Then
Set C = Range("B1:B5000").Find(EingabeNr$, LookIn:=xlValues)
If Not C Is Nothing Then
EingabeMenge = InputBox("Menge eingeben", EingabeNr$)
If Left(EingabeMenge, 1) = "%" Or IsNumeric(EingabeMenge) = "False" Then
L = Beep(1000, 1000)
Else
Cells(C.Row, 12).Value = EingabeMenge
End If
End If
End If
End If
Loop
End If
If intR = 7 Then
MsgBox ("Erfassung wird nicht gestartet!")
End If
End Sub
Ich will noch erwähnen, dass ich den obigen Code über die CALL-Funktion aufrufe.
Aber sowohl der direkte als auch der indirekte Aufruf lässt kein Beep zu.
Danke schon mal vorab für eure Mühe.
Schönen Feiertag noch.
Albert