HERBERS Excel-Forum - die Beispiele

Thema: Vorkommen eines Namens ab Zeitpunkt und in Gebiet ermitteln

Home

Gruppe

UDF

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

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
UDF soll nicht auf Daten anderer Dateien zugreifen vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic UDF- Beschreibung
Berechnungsdauer einer UDF messen Hintergrudfarbe ändern??? Finde keine Lösung :-(
Probleme mit IsNumeric, Code per UDF UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten nach Worksheet_Change werden UDF nicht ausgewertet
Excel anhalten bei UDF UDF
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF Werte einer UDF werden nicht aktualisiert
Aufruf von UDF mit Array UDF: Semikolon vs Komma
UDF, erkennen in welcher Zelle die UDF steht Probleme mit UDF und Worksheet Ereignissen
Formeln über UDF vergleichen UDF Verweis checken
UDF Intellisense bei User defined functions (UDF)
VBA "Find" in UDF UDF-Funktionen in eigener Kategorie
UDF Function Variable Info erstellen UDF, optionaler Parameter als Range, IsEmpty?
UDF verschiedene Bereiche ändern Makro aus UDF starten
Reihenfolge von UDF's UDF/ Berechnung Zuschlagszeiten
AddIn UDF in anderem VBA-Project verwenden UDF und Array bzw. Matrix
UDF die Texte in Zahlen umwandelt Summewenns UDF über mehrere Tabellenblätter
Funktionsargumente für UDF's UDF Reihenfolge Übergabeparamter führt zu #WERT
Neuberechnung einer UDF VBA - UDF anpassen
UDF liefert kein Ergebnis UDF anpassen
UDF stößt an ihre Grenze (Alternative?) Bereichsname in UDF verwenden
UDFs zeigen falsche Ergebnisse oder starten nicht Fragen zu UDF, die Texte verkettet
UDF: Kontextbezogene Hilfe anzeigen UDF funktioniert bei Aufruf per Sub, sonst Fehler