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ß DanielDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen