Berechnung/Bedingung umwandeln als Makro
21.01.2009 10:01:58
Lucia
Ich habe ein Tabellenblatt, welches mir in einer Spalte das Fälligkeitsdatum einer eingehenden Rechnung errechnet.
Dabei kommt es darauf an, ob
a) dem Lieferanten ein Zahlungsziel hinterlegt ist
b) ein fester Zahltag hinterlegt ist (bei Daueraufträgen)
c) es mit Kreditkarte bezahlt wurde (nach Abrechnungszeitrum und Zahltag)
d) wenn das alles nicht zutrifft wird ein Zahlungsziel von 30 Tagen hinterlegt.
Daraus habe ich eine ziemlich lange Formel gebildet, die heißt:
WENN(A13=0;"";WENN(B13=0;0;WENN(ODER(R13="MC HB";R13="MC TB";R13="MC AF";R13="MC LF";R13="MC UB";R13="MC ES");WENN(TAG(B13)>TAG(Lieferanten!$I$88);DATUM(E13;D13+1;Lieferanten!$D$88);DATUM(E13;D13;Lieferanten!$D$88));WENN(SVERWEIS(A13;Lieferanten!$A$13:$F$1004;4;FALSCH)>0;WENN(DATUM(E13;D13;SVERWEIS(A13;Lieferanten!$A$13:$F$10001;4;FALSCH))>=B13;DATUM(E13;D13;SVERWEIS(A13;Lieferanten!$A$13:$F$10001;4;FALSCH));DATUM(E13;D13+1;SVERWEIS(A13;Lieferanten!$A$13:$F$10001;4;FALSCH)));B13+WENN(SVERWEIS(A13;Lieferanten!$A$13:$F$10001;3;FALSCH)>0;SVERWEIS(A13;Lieferanten!$A$13:$F$1001;3;FALSCH);$J$8)))))
wenn ich diese Formel die ganze Spalte runterkopiere, sagen wir 1000mal (mal so als Anzahl von Rechnungen, die übers Jahr reinkommen), bläht sich mein Exceltool natürlich unendlich auf.
Ich bin in VBA jetzt nicht soooo fit, habe aber die Vermutung, dass wenn man das in ein Makro packt, sich die Dateigröße verringert. Nur, wie könnte das Makro aussehen?
Die Beispieldatei findet ihr hier:
https://www.herber.de/bbs/user/58647.zip
Vielen dank schonmal,
Lucia