Hallo Leute,
ich habe ein Problem :(
ich habe für meine Arebit einen urlaubsplaner erstellt.
Nun habe ich hier eine Auswertung für die Monate und Abteilungen mit eingebaut.
Hier ist mir jetzt aber aufgefallen, das durch die große menge an komplexen Formeln die Arbeitsmappe langsam geworden ist.
Hier ist mir nun die Idee gekommen, die Formeln in in Makro zu bringen und so das ganze schneller und schlanker zu machen
Ich hbae es schon einmal mit den Makro Recorder versucht, die Formel die hier heraus gekommen ist, die läuft aber leider nicht :(
Hier mal die Original Formel:
=SUMMENPRODUKT(((MONAT(Monat)=MONAT($A15)))*((_Abt162280="U")))+SUMMENPRODUKT(((MONAT(Monat) =MONAT($A15)))*((_Abt162280="ZK")))+SUMMENPRODUKT(((MONAT(Monat)=MONAT($A15)))*((_Abt162280="K"))) +SUMMENPRODUKT(((MONAT(Monat)=MONAT($A15)))*((_Abt162280="SU")))+SUMMENPRODUKT(((MONAT(Monat) =MONAT($A15)))*((_Abt162280="HH")))+SUMMENPRODUKT(((MONAT(Monat)=MONAT($A15)))*((_Abt162280="L"))) +SUMMENPRODUKT(((MONAT(Monat)=MONAT($A15)))*((_Abt162280="Kur")))
Diese Formel ist immerhin 60mal in meiner Auswertung vorhanden :(
Hier die Formel die durch den recorder herausgekommen ist:
Range("A20").Select
Selection.FormulaArray = _
"=SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""U"")))+SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""ZK"")))+SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""K"")))+SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""SU"")))+SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""HH"")))+SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""L"")))+SUMPRODUCT(((MONTH(Monat)=MONTH(R[-5]C1)))*((_Abt162280=""Kur"")))"
End Sub
Da ich leider nicht die überragenden bis garkeine VBA kenntnisse habe, weis ich nicht was ich machen könnte.
Die VBA Formel müßte ich dann ja auch auf ander Zellen übertragen.
Ich würde mich über Hilfe sehr freuen, bis dahin Schöne Grüße Burkhard