wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
Sub Leer()
Dim L&
L = ActiveSheet.Range("C3:C13").SpecialCells(xlCellTypeBlanks).Count
MsgBox L & " sind leer"
End Sub
Sub Nicht_Leer()
Dim L&
L = ActiveSheet.Range("C3:C13").Count - _
ActiveSheet.Range("C3:C13").SpecialCells(xlCellTypeBlanks).Count
MsgBox L & " sind gefüllt"
End Sub
Die 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