Tabellenblattstruktur mit VBA erstellen

[schauan]

Hallo Frank,

ich hab das jetzt bei mir in Excel 2013 umgesetzt, da geht es so. Bei Dir sollte das auch klappen. Das mit den 1024 zeichen galt übrigens bis Excel 12 = 2003 - ich war da etwas durcheinander wegen Deiner Angabe 07 in dem Signaturbild. 07 ist eigentlich die Version 95, 08 war 97, 09 = 2000, 10 = XP, 11 = 2003, 12 = 2007. 14 = 2010 und 15 die aktuelle 2013. Aber Deine Dateien sind ja immer xlsm, da muss die 07 ja 2007 sein. Das Problem war also nicht die Formellänge im Blatt, sondern im VBA-Editor auf einer Zeile.

Code:

Sub Makro3()
' Makro3 Makro
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-28]="""","""",IF(LEFT(RC[-28],3)=""Plu"",SUM((((IF(ISTEXT(RC[-26]),LOO" & _
        "KUP(RC[-26],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-26])+IF(ISTEXT(RC[-25]),LOO" & _
        "KUP(RC[-25],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-25]))-IF(ISTEXT(RC[-24]),LOO" & _
        "KUP(RC[-24],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-24]))*IF(ISTEXT(RC[-23]),LOO" & _
        "KUP(RC[-23],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-23]))/IF(ISTEXT(RC[-22]),LOO" & _
        "KUP(RC[-22],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-22])),IF(LEFT(RC[-28],3)=""2 a"",IF( " & _
        "ISTEXT(RC[-26]),LOOKUP(RC[-26],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-26])+IF(" & _
        "ISTEXT(RC[-25]),LOOKUP(RC[-25],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-25]),IF(" & _
        "LEFT(RC[-28],3)=""gr."",IF(ISTEXT(RC[-26]),LOOKUP(RC[-26],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-26])&IF(" & _
        "ISTEXT(RC[-25]),LOOKUP(RC[-25],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-25])&IF(" & _
        "ISTEXT(RC[-24]),LOOKUP(RC[-24],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-24]),IF(" & _
        "ISTEXT(RC[-26]),LOOKUP(RC[-26],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-26])&IF(" & _
        "ISTEXT(RC[-25]),LOOKUP(RC[-25],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-25])&IF(" & _
        "ISTEXT(RC[-24]),LOOKUP(RC[-24],{""a"";""k"";""o"";""s"";""x""},{4;8;9;3;0}),RC[-24])))))"
End Sub

Die Formel ist dann in der Zelle in der deutschen Übersetzung 1058 Zeichen lang und Excel hat bei mir gemeckert. Das liegt allerdings daran, dass ab Excel 2007 = Excel 12 immerhin 8192 Zeichen rein passen, also 8x so viele wie in den Vorgängerversionen.