Speichern zulassen wenn Makro ohne Fehler
Maris
wie kann ich ein Speichern der insgesamt Datei verhindern, es sei den der Makro zeigt keine Fehlermeldung an? Nur wenn das Makro fehlerfrei durchläuft soll die Möglichkeit bestehen zu speichern. DAs Makro prüft ob im Bereich J2:L2000 ein Fehlerwert steht...
Sub fehler()
Dim r As Range
Dim letzteZeile As Long
Dim letzteZelle As Range
letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Range("J1:L" & letzteZeile).Select
On Error GoTo fehler
Set r = Selection.SpecialCells(xlCellTypeFormulas, 16)
If Not r Is Nothing Then MsgBox "Attention! There are some critical error values in your _
list #NV! Check column J,K,L --> To get zero values, please edit the colums" _
& Chr$(13) & Chr$(13) & "CHECK CELLS:" & Chr$(13) & Chr$(13) & Chr(10) & r.Address & vbLf
Exit Sub
fehler:
MsgBox "Perfect! No Errors!"
End Sub
Lg,
MAris