wie kann ich folgende Funktion umschreiben, sodass in der Spalte FF nach dem aktuellen Systemdatum und in dieser Zeile nach links bis zur Spalte A nach Fehlern wie #Div/0, #NV, #Bezug usw. gesucht wird?
Ergebis soll eine MsgBox sein, die anzeigt, in welcher Spalte der Fehler aufgetreten ist, indem sie die in Zeile A stehende Bezeichnung der Spalte ausgibt.
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