Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Funktion ANZAHL2 ohne ausgeblendete Spalten

Gruppe

Anzahl2

Problem

Wie kann ich die Excel-Funktion ANZAHL2 anwenden, ohne daß die ausgeblendeten Spalten mitgezählt werden?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function CountC(iRow As Integer) As Integer
   Dim iCol As Integer, iCounter As Integer
   For iCol = 1 To 256
      If Application.Caller.Parent _
         .Cells(iRow, iCol).Text <> "" Then
         iCounter = iCounter + 1
      End If
    Next iCol
    CountC = iCounter
End Function