Fehler auslesen
Horst
hat einer eine Ahnung, wie ich folgendes Makro verändern müsste, dass statt in Spalte A in Spalte FF nach dem aktuellen Systemdatum gesucht wird und dann die Zeile nicht nach rechts, sondern nach links bis zur Spalte A nach Fehlern (#Div/0, #NV, #Bezug etc.) überprüft wird.
Sofern ein Fehler auftritt, soll in einer MsgBox ausgegeben werden, in welcher Spalte der Fehler aufgetreten ist
Besten Dank für Eure Vorschläge!
Function fncMappenFehler(wb As Workbook) As Boolean
Dim wks As Worksheet, strMsg As String
Dim Zeile As Long, Spalte As Long
For Each wks In wb.Worksheets
With wks
For Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If .Cells(Zeile, 1).Value = Date Then
For Spalte = 2 To .Cells(Zeile, .Columns.Count).End(xlToLeft).Column
If IsError(.Cells(Zeile, Spalte).Value) Then
strMsg = strMsg & vbLf & .Name
GoTo NextSheet
End If
Next
End If
Next
NextSheet:
End With
Next
If strMsg = "" Then
fncMappenFehler = False
Else
fncMappenFehler = True
MsgBox "Fehler in ...:" & strMsg
End If
End Function