Formel in VBA übertragen
19.04.2004 23:37:50
W. Ebenbeck
Zuerst möchte ich mal ein großes DANKE an alle Leute auf diesem Board weitergeben, denen ich seit Wochen die Lösung vieler Probleme verdanke. Der Recherche sei dank....
Zu meinem Problem: Ich möchte anhand einer Datumsangabe die zugehörige Kalenderwoche bestimmen. Dies hab ich bis jetzt mehr oder weniger elegant über eine Formel gelöst, die ich per makro in die entsprechenden Zellen weiter kopierte.
=VERKETTEN(WENN(TEXT(C2;0)*1>37983;AUFRUNDEN(((((TEXT(C2;0))-36523)/365)-(ABRUNDEN((((TEXT(C2;0))-36523)/365);0)))*52;0);AUFRUNDEN(((((TEXT(C2;0))-36524)/365)-(ABRUNDEN((((TEXT(C2;0))-36524)/365);0)))*52;0));"/0";ABRUNDEN(((TEXT(C2;0))/365)-100;0))~f~
Leider kann ich nun diese Formel nicht mehr in der relevanten Spalte in AB1 eintragen und runter kopieren, da ich somit Schwierigkeiten mit der Pivot-Auswertung bekomme.
Jetzt wollte ich dies per Makro direkt einfügen lassen und versuchte es mit:
Cells(2, 28).FormulaLocal = "=CONCATENATE(IF(TEXT(C2,0)*1>37983,ROUNDUP(((((TEXT(C2,0))-36523)/365)-(ROUNDDOWN((((TEXT(C2,0))-36523)/365),0)))*52,0),ROUNDUP(((((TEXT(C2,0))-36524)/365)-(ROUNDDOWN((((TEXT(C2,0))-36524)/365),0)))*52,0)),ROUNDDOWN(((TEXT(C2,0))/365)-100,0))"
Leider bekam ich als Ergebnis nur einen Laufzeitfehler....
Für jeden Tip bin ich dankbar!
Gruss
Wolfgang
Hoffe meine Nachricht ist nicht zu lang, wollte einfach alles relevante sagen.