ich möchte in einer Spalte alle Zellen mit Eintrag zählen.
Leider sind immer einige Zellen verbunden.
Besteht irgendwie die Möglichkeit auch bei einer verbundenen
Zelle, die tatsächlichen Zellen zu ermitteln ?
Danke für Eure Ideen.
Gruß Stefan
Function AnzahlV(rngParam As Range)
Dim lngAnzahl&, r As Range
Application.Volatile
For Each r In rngParam
If Not r.Value = "" Then _
lngAnzahl = lngAnzahl + Application.Intersect(r.MergeArea, rngParam).Cells.Count
Next r
AnzahlV = lngAnzahl
End Function