SpecialCells(xlCellTypeBlanks).Count
Franz
Obwohl im "Catalog" der Zusatz ".Count" gelistet wird bekomme ich eine Fehlermeldung.
Was ist hier faul?
Sub Leere_Felder_zaehlen_und_markieren()
loBlanksCount = Range("Datenbereich").SpecialCells(xlCellTypeBlanks).Count
MsgBox (loBlanksCount) ' 0 Then
Range("Datenbereich").Interior.ColorIndex = xlNone
Range("Datenbereich").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
End If
End Sub
Ich hoffe hier könntet mir wieder helfen.
Grüße
Franz D.