VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vorkommen eines Namens ab Zeitpunkt und in Gebiet ermitteln

Gruppe

UDF

Bereich

DatumUndZeit

Thema

Vorkommen eines Namens ab Zeitpunkt und in Gebiet ermitteln

Problem

Über eine benutzerdefinierte Funktion soll ermittelt werden, wie oft ein Name ab einem bestimmten Datum in einem vorgegebenen Gebiet vorkommt.

Lösung

Über die nachfolgende benutzerdefinierte Funktion.




StandardModule: Modul1

Function CountNames(Bereich As Range, Start As Date, Gebiet As String)
   Dim rng As Range
   Dim col As New Collection
   Dim iCounter As Integer
   On Error Resume Next
   For Each rng In Bereich.Columns(1).Cells
      If rng.Value > Start And rng.Offset(0, 2) = Gebiet Then
         col.Add rng.Offset(0, 1).Value, rng.Offset(0, 1).Value
      End If
   Next rng
   On Error GoTo 0
   CountNames = col.Count
End Function

    


Beiträge aus dem Excel-Forum zu den Themen UDF und DatumUndZeit