Hallo Paul,
nachfolgender Code prüft nach der Eingabe, ob eine Berechnung einen Fehler enthält. Tritt ein Fehler auf, erscheint eine entsprechende Fehlermeldung
Kopiere das Makro in das VBA-Projekt des Tabellenblatts, in dem er wirken soll.Teste den Code aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngRow As Long
Dim intColumn As Integer
Dim rngCells As Range
intColumn = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Column
lngRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
Set rngCells = Range(Cells(1, 1), Cells(lngRow, intColumn))
On Error GoTo Weiter
MsgBox "Durch die letzte Eingabe enthalten " _
& rngCells.Cells.SpecialCells(xlCellTypeFormulas, 16).Count _
& " Formel(n) fehlerhafte Bereechnungen. Bitte Eingabe prüfen!", vbCritical, "Fehler..."
Exit Sub
Weiter:
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]