Hallo Spezialisten,
ich habe eine Groooße Liste (excel2010). ca 60000 Zeilen die Berechnet werden sollen.
Dieses Makro habe ich mal Komponiert
For i = 1 To Zeile
'If Rows(i).EntireColumn.Hidden = True Then
'Next i
'Else
x = ActiveCell.Row
Range(Cells(x, Spalte1), Cells(x, Spalte2)).Calculate
Cells(x + 1, Spalte1).Activate
Next i
'End If
End If
allerdings stimmt da noch etwas nicht.
Ich möchte die Ausgeblendeten Zeilen überspringen. Da die Berechnung mit Summewenns zu lange dauert, wenn die Formel in jeder Zeile steht.
Vielleich hat ja jemand eine Lösung.
Gruß DrEx
|