folgendes Problemchen:
Hab in einer Zelle eine simple Summenformel und möchte nun, immer wenn das Ergebnis negativ werden sollte, eine Fehlermeldung anzeigen lassen und den Zelleninhalt löschen.
Wie geht das?
Danke schon mal, Kerstin!
folgendes Problemchen:
Hab in einer Zelle eine simple Summenformel und möchte nun, immer wenn das Ergebnis negativ werden sollte, eine Fehlermeldung anzeigen lassen und den Zelleninhalt löschen.
Wie geht das?
Danke schon mal, Kerstin!
kopiere folgendes Makro in den Codebereich Deines Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim oCell As Range
Set oCell = Range("A1")
If Target.Address = oCell.Address Then
If (IsNumeric(Target.Value) = True And Target.Value < 0) Then _
MsgBox "Negative Werte " & Target.Address & " nicht zulässig", vbOKOnly: Target.ClearContents
End If
End Sub
Die Zelladresse musst in der Zeile 'Set oCell=..." noch anpassen.
Damit wird allerdings dann auch Deine Summenformel gelöscht.
Steffan.