ich habe diese Script aus dem Forum bekommen und hänge wiedermal fest :-(
Das Script funktioniert wenn man in der Zelle einen Wert von Hand einträgt wird der Wert aber über eine Formel eingefügt so geht es nicht. Das Script prüft in mehreren Zellen ob sich "Barcode-Fehler" darin befindet und gibt mir einen Beep Ton aus.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber As Range, z As Range
Set ber = Intersect(Range("A1:A300"), Target)
If Not ber Is Nothing Then
For Each z In ber
If z.Value = "Barcode-Fehler" Then Beep 880, 100
Next z
End If
End Sub
Wie bekomme ich es dazu das es auf die Werte von Formeln reagiert ?
Zum Ablauf meiner Scripte ich Scanne einen Barcode ein und über meine Formeln wird mir das passende Produkt zum Barcode rausgesucht. Ist der Barcode nicht in der Datenbank bekannt wird nun in der Zelle "Barcode-Fehler" ausgegeben und der Beep Ton kommt. Ich vermute mal es ist ein Problem mit dem Zeitlichem Ablauf der Scripte na ja vermute bin kein VBA Profi.
Hoffe Ihr könnt mir damit helfen.
Danke und Gruß
Steffen