ich möchte per Makro in einem Datenblatt prüfen, ob in den Spalten D bis F ein Fehlerwert vorliegt. Mehr eigentlich nicht... :-)
Wenn "Fehlerwert" zu allgemein ist, dann kommt es mir hauptsächlich auf #NV an.
Vielen Dank!
Gruß
Dirk
Sub Fehlerwerte_ermitteln()
Dim Fehler As Long
Fehler = WorksheetFunction.CountIf(Range("D:M"), "#NV")
MsgBox Fehler
End Sub
Es werden aber nicht die #NV gezählt - es ist immer Null. Wenn ich an der Stelle des #NV einen Text oder eine Zahl eingebe, dann läuft es problemlos....Public Sub aaa()
Dim raFund As Range
Set raFund = Columns("D:F").Find(what:="#", LookIn:=xlValues, lookat:=xlPart)
If Not raFund Is Nothing Then
MsgBox "Es sind Fehlerwerte vorhanden."
Else
MsgBox "Keine Fehler"
End If
Set raFund = Nothing
End Sub
Gruß Wernerif Worksheetfunction.CountA(Range("D:F")) > Worksheetfunction.Aggregate(3, 6, Range("D:F")) _
then
msgbox "Fehler vorhanden"
end if
Gruß Daniel