Hallo liebes Forum!
Ich habe nach einigen Recherchen mir folgende "Umsetzung" in VBA erarbeitet.
Sinn und Zweck ist es, eine Dienstplanerfassung mit variablen Diensten und Stunden zu realisieren.
Ich möchte dabei auf Formeln in Excel verzichten und alles mit VBA realisieren.
Zielzelle ist AK8.
Meine Frage nun, ob man die "ZÄHLENWENN-Funktion", die ich wie folgt nach VBA "übertragen" habe, auch kürzer darstellen kann???
Hier die Darstellung:
[AK8] = WorksheetFunction.CountIf([E8:AI8], "A") * 8 + WorksheetFunction.CountIf([E8:AI8], "F") * 7 + WorksheetFunction.CountIf([E8:AI8], "F6") * 7 + WorksheetFunction.CountIf([E8:AI8], "M") * 8.5 + WorksheetFunction.CountIf([E8:AI8], "MK") * 8 + WorksheetFunction.CountIf([E8:AI8], "A/S") * 8.5 + WorksheetFunction.CountIf([E8:AI8], "S") * 8 + WorksheetFunction.CountIf([E8:AI8], "N") * 10
Vielen Dank für Eure Hilfe
A.C. Tischer, Hamburg