Hallo,
ich setze gerade Excel2003er Dateien nach 2010 um. Ein Makro leert einen Zellbereich, beschreibt ihn dann und verschiebt dann die Inhalte horizontal (zur besseren Lesbarkeit).
Dieses Makro braucht unter Excel2003 ca 1,5 Sekunden.
Der GLEICHE Code unter Excel2010 benötigt 25 (!!) Sekunden.
Es liegt am Verschieben. In 2003 flutscht es, in 2010 geht es Stück für Stück.
Hier ein Teil des Verschiebecode:
Range("I130").Value = Range("E130").Value
Range("E130").Value = ""
'verschieben der Ebene 1
For i = 131 To 400
If Range("F" & i) "" Then
Range("D" & i).Value = Range("F" & i).Value
Range("F" & i).Value = ""
End If
Next i
For i = 131 To 400
If Range("G" & i) "" Then
Range("E" & i).Value = Range("G" & i).Value
Range("G" & i).Value = ""
End If
Next i
For i = 131 To 400
If Range("H" & i) "" Then
Range("J" & i).Value = Range("H" & i).Value
Range("H" & i).Value = ""
End If
Next i
'verschieben der Ebene 2
For i = 131 To 400
If Range("I" & i) = "MV" Or Range("I" & i) = "UV" Then
Range("E" & i).Value = Range("I" & i).Value
Range("I" & i).Value = ""
End If
Next i
For i = 131 To 400
If Range("J" & i) "" And (Range("E" & i) = "MV" Or Range("E" & i) = "UV") Then
Range("F" & i).Value = Range("J" & i).Value
Range("J" & i).Value = ""
End If
Next i
Wie kann das möglich sein? Ist doch ein ganz einfacher Code.
Gruss
Joachim