AW: Suche in der Hilfe nach CVERR() _oT
10.11.2009 17:08:27
fcs
Hallo Horst,
dann muss man die Prüfung ein wenig anders aufbauen - nämlich Zeilenweise.
Die Routine vergleicht jetzt beginnend von unten die Werte in Spalte A mit dem aktuellen Systemdatum und prüft bei Übereinstimmung die Werte in der Zeile.
Gruß
Franz
Sub aaTest()
If fncMappenFehler(ActiveWorkbook) = False Then
MsgBox "Keine Fehler"
Else
End If
End Sub
Function fncMappenFehler(wb As Workbook) As Boolean
Dim wks As Worksheet, strMsg As String
Dim Zeile As Long, Spalte As Long
'Fehler Suche im Bereich B1:xx1 aller Tabellenblätter
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
Exit For 'wenn dass Systemdatum nur einmal in Spalte A vorkommen kann sonst _
diese Zeile rausnehmen
End If
Next
NextSheet:
End With
Next
If strMsg = "" Then
fncMappenFehler = False
Else
fncMappenFehler = True
MsgBox "Fehler in : " & strMsg
End If
End Function