Pop-Up Message in Excel

Question

Hallo Leute..

ich möchte, dass Excel eine automatische Pop-up-Message ausgibt, sobald in einer bestimmten Zelle ein negativer Wert errechnet wird.
Wie realisiere ich das mit VB?
Kann mir da jemand helfen?

Greetz..
Jay

Answer 1

Hallo Jay,

z.B. mit folgenden Code, der in das VBA-Projekt des Arbeitsblattes einzufügen ist:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value < 0 Then MsgBox "Der Wert ist kleiner Null"
End Sub

Überprüft wird hier die Zelle A1

Gruß

M.O.

Answer 2

Hi Jay,

ich würde die Ausgangszellen für die Formel der berechnenden Zelle überwachen. Angenommen in B20 steht =A1-A10, dann würde der Code dafür so aussehen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$A$10" Then
If Range("B20") < 0 Then MsgBox "Wert ist negativ"
End If
End Sub

Bis später,
Karin

Answer 3

Hey wunderbar..es klappt..

Nur ich bekomme das mit dem Zeilenumbruch in der Box nicht hin..

Es sieht jetzt so aus:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(14, 7).Value < 0 Then MsgBox "Keine Marge vorhanden &vbnewline Bitte neu kalkulieren", vbCritical

Was ist falsch?
Danke..

Gruß..Jay

Answer 4

MsgBox "Keine Marge vorhanden." & vbnewline & "Bitte neu kalkulieren"

Yossarian