der nachfolgende Code bringt mein Excel zum Abstürzen und ich eghe davon aus, dass es an der umständlichen Berechnungsweise liegt, die ich gecodet habe.
Wie könnte ich denn eine elegantere und vor allem eine nicht so ressourcenlastige Formel verwenden?
Eine zweite Frage: Woran kann es liegen, dass ich die Excel-Datei, die ich mit Excel 2003 erstellt ahbe nciht in Excel 9 /2000 öffnen kann und beim Öffnen Excel abstürzt.
Vielen Dank
Sub Auslesen()
Dim i, j, m, k, letztessheet, startsheet, letztespalte, monatsspalte, startmonat
letztessheet = Sheets.Count 'zählt die Tabellen
startsheet = 7
startmonat = 9
h = 8
letztespalte = Worksheets(startsheet).Cells(4, Columns.Count).End(xlToLeft).Column
For k = 5 To 93 Step 1 monatsspalte = 5
For j = startmonat To letztespalte Step 6
m = 120
Worksheets("V").Cells(6, monatsspalte) = Worksheets(startsheet).Cells(4, j)
For i = startsheet To letztessheet Step 1
Worksheets("V").Cells(m, 1) = Worksheets(i).Cells(k, j)
Worksheets("V").Cells(h, monatsspalte) = Worksheets("V").Range("A119").Value
'Application.Wait Now + TimeValue("00:00:01")
Worksheets("V").Cells(m, 2) = Worksheets(i).Cells(k, j - 3) 'in spalte j-3 stehen die _
Stückbestände Worksheets("v").Cells(h, monatsspalte + 1) = Worksheets("V").Range("B119").Value
'Worksheets("V").Cells(h, monatsspalte) = _
Application.WorksheetFunction.Sum(Worksheets(i).Cells(k, j)) 'eventuell etwas mit _
SUBTOTAL
m = m + 1
Next i
monatsspalte = monatsspalte + 3
Next j
h = h + 1
Next k
Rows("1:1").EntireColumn.AutoFit
End Sub