ich möchte folgenden Code nicht durch Klick auf einen erzeugten Button ausführen, sondern eine Meldung bei Eingabe in der Zelle erzeugen.
Wie müßte dieser Code geändert werden ?
Dieses sollte dann nicht eine Info-Meldung sein, sondern eine "Stop-Meldung"
Public
Sub Meldung()
Dim sh As Worksheet, shA As Worksheet
Dim i%, x%, lz%, lzR%
Set sh = Sheets("Maske")
Set shA = Sheets("Artikeldatei")
Application.ScreenUpdating = False
lz = shA.Cells(Rows.Count, 1).End(xlUp).Row
lzR = sh.Cells(Rows.Count, 2).End(xlUp).Row
For x = 17 To lzR
For i = 4 To lz
If sh.Cells(x, 2) = shA.Cells(i, 1) And _
sh.Cells(x, 8) <= 20 Then
MsgBox "Artikel " & shA.Cells(i, 2) & _
" bitte Auftrag an Produktion, da Lagerbestand fast leer!", 65, "Lagerbestandsmeldung!"
End If
Next
Next
Application.ScreenUpdating = True
Set sh = Nothing
Set shA = Nothing
End Sub
Vielen Dank.
Michael-loe