eine Frage:
wie kann ich ich im Tabellenblatt ("HB") ein automatische Makro einstellen, dass eine Msg Box aufruft, sobald der Wert größer 0 ist
und zwar für Spalte H; Zelle 41,43,44,47,48,49,51,52,53,54
Danke im Voraus.
Berndt
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("H41") > 0 Then
MsgBox ("Wert überschritten")
Exit Sub
End If
End Sub
mfg Bernd
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("H41").Value > 0 Or Range("H43").Value > 0 Or Range("H44").Value > 0 Or _
Range("H47").Value > 0 Or Range("H48").Value > 0 Or Range("H49").Value > 0 Or _
Range("H51").Value > 0 Or Range("H52").Value > 0 Or Range("H53").Value > 0 Or _
Range("H54").Value > 0 Then
MsgBox ("Wert überschritten")
End If
End Sub
Grüße
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Worksheets("HB").Range("H41").Value > 0 Then
MsgBox ("Wert überschritten")
Exit Sub
End If
End Sub
lg Bernd
https://www.herber.de/bbs/user/106677.xlsm