CountIf
12.08.2022 10:01:06
Robert
es scheint, dass ich für meine Kenntnisse etwas zu viel auf einmal will und scheitere - daher mein Hilfeaufruf:
Excel sollte via Makro einen Zellbereich (A4:A95) durchsuchen und alle (sichtbaren) Zellen - es kann sein, dass ich welche ausblende - zählen. (Ausgabe dann über die Statuszeile...)
Aber nur WENN der Wert mit einer Zahl beginnt. > Und daran scheitere ich...
Das reine Zählen hatte ich mit dem CountA-Befehl hinbekommen und würde es jetzt gerne mit dem CountIf-Befehl machen. Jetzt wird's aber mit dem IsNumeric und Left wohl zu viel für mich...
Hat da jemand einen guten Tipp?
Das Ganze sieht derzeit so aus:
Sub zaehlen()
Dim wert1 As Integer, projekt As String
wert1 = Application.WorksheetFunction.CountIf(Range("A4:A95").SpecialCells(xlCellTypeVisible), IsNumeric(Left(Cells, 1)))
projekt = IIf(wert1 = 1, " Projekt online", " Projekte online")
Application.StatusBar = wert1 & projekt
End Sub
(Ich hatte es schon mit dem komischen
SpecialCells(xlCellTypeConstants, 1)
Ganz herzlichen Dank schon mal an alle Retter des Codes :-) !
Robert