Aggregat - vba
06.04.2022 20:57:05
Fredy
Ich habe beim durchstöbern des Forums den VBA Code für eine Formel mit Aggregat gefunden und wollte dies entsprechend meiner Anwendung Anpassung.
Weiss nun nicht, ob ich dies so richtig gemacht habe.
Die Formel habe ich in der Zelle B8:
=WENNFEHLER(INDEX(EinsatzplanungTabelle;AGGREGAT(15;6;ZEILE(EinsatzplanungTabelle) /((EinsatzplanungTabelle[Mitarbeiter]=Wochenplan!$H$3) *(EinsatzplanungTabelle[Datum]=Wochenplan!$E$7) *(EinsatzplanungTabelle[Uhrzeit von]>=Liste!$I$2) *(EinsatzplanungTabelle[Uhrzeit bis] Den VBA Code habe ich somit wie folgt angepasst:
Sub TestAggregate()
Dim res As Long
Dim k as Long
With ActiveWorkbook.Sheets("Wochenplan")
For k = 1 to 30
res = Evaluate("=AGGREGATE(15,6,ROW(EinsatzplanungTabelle)/((EinsatzplanungTabelle[Mitarbeiter]=Wochenplan!$H$3)*(EinsatzplanungTabelle[Datum]=Wochenplan!$E$7)*(EinsatzplanungTabelle[Uhrzeit von]>=Liste!$I$2)*(EinsatzplanungTabelle[Uhrzeit bis]
Wie merkt das VBA, dass das Resultat in der B8 rein muss?Danke für eure wertvolle hilfe.
Gruss Felsenhau