komplexeres "Zellen einfügen, wenn" Problem (VBA!)
Carlo
ich beiße mir an meinem momentanen Problem wohl auch noch den letzten Zahn aus.
Ich werds mal beschreiben. Geht im Prinzip um Buchhaltung.
Ich habe auf einem sheet (Betriebsverwaltung) in den Bereichen D20:N20 , D33:N33 , D47:N47 usw. jeweils Formeln zu stehen. Diese Formeln übernehmen bei Erfüllung der Bedingung automatisch Werte, die auf einem anderen sheet (Rechentabelle) stehen. Hier mal eine Bsp.formel vom sheet (Betriebsverwaltung) aus Zelle D33:
{=WENN(ZEILEN(Rechentabelle!$1:1)>ZÄHLENWENN(Rechentabelle!$A$1:$A$297;"d");""; INDEX(Rechentabelle!B$1:B$297;KKLEINSTE(WENN(Rechentabelle!$A$1:$A$297="d"; ZEILE(Rechentabelle!$1:$295));ZEILE(A1)))) }
~f~
Ich möchte nun folgendes:
Wenn der letzte Bereich (also zb. N20 , N33 oder N47) (automatisch) ausgefüllt ist, soll mir ein Makro eine neue Zeile darunter mit (annähernd) den gleichen Formeln (in zb. dem Bereich D34:N34) einfügen. Um das Bsp von oben fortzuführen, muss in der Zelle D34 nun folgendes stehen:
~f~
{=WENN(ZEILEN(Rechentabelle!$1:2)>ZÄHLENWENN(Rechentabelle!$A$1:$A$297;"d");""; INDEX(Rechentabelle!B$1:B$297;KKLEINSTE(WENN(Rechentabelle!$A$1:$A$297="d"; ZEILE(Rechentabelle!$1:$295));ZEILE(A2)))) }
Keine Ahnung ob das überhaupt geht!?
Ich habe auch keinen Plan, wie ich das am besten mit dem Rekorder aufzeichnen könnte.
Ich habe schon wirklich viele Foren durchforstet. Da ich ein relativer VBA-Neuling bin und mich mit dieser Aufgabenstellung höchstwahrscheinlich selber übernommen habe, bin ich für jede Hilfe dankbar!