Öffnen Sie den VBA-Editor und wählen Sie im Menü Einfügen die Option Modul. Fügen Sie Folgendes in das resultierende Textfeld ein:
Function DEPTAPPCOUNT(Dept As String, Range As Range, CountRange As Range) As Integer Dim count As Integer For Each rCell In Range If rCell.Text = Dept Then If rCell.Offset(0, 1).Text <> "" Then count = count + 1 End If Next DEPTAPPCOUNT = count End Function Klicken Sie in der Symbolleiste auf die Schaltfläche Speichern, und schließen Sie den VBA-Editor, um zur Tabelle zurückzukehren. Sie können die DEPTAPPCOUNTFunktion jetzt wie die intrinsischen Funktionen von Excel verwenden. Wenn Ihre Abteilungsspalte von A2 bis A7 reicht (und die Beurteilungsdaten in B2 bis B7 sind - die gezählte Spalte muss sich rechts neben der Abteilungsspalte befinden, damit diese Funktion funktioniert), geben Sie ein =DEPTAPPCOUNT("Sales", A2:A7, B2:B7), um die Anzahl der Verkaufseinträge mit nicht zu erhalten bloße Beurteilungsdaten. Passen Sie den ersten Parameter (den SalesText) wie gewünscht an, um in anderen Abteilungen zu zählen.
Wenn Sie Excel 2007 oder neuer verwenden, müssen Sie das Arbeitsblatt im XLSM(Makro-aktivierten) Format speichern.
Für diejenigen, die sich fragen, warum CountRangesie an die benutzerdefinierte Funktion übergeben werden müssen, obwohl sie nicht verwendet wird, muss Excel die Anzahl neu berechnen, wenn die Datumsspalte geändert wird. Wenn Sie also den zusätzlichen Bereich an die Funktion übergeben, entsteht eine Abhängigkeit in Excel-Berechnungen.