mit Select ist Makro langsam
19.10.2014 17:32:19
mehmet
Hallo Forum,
wie kann ich diesen Abschnitt ersetzen:
Rows(iRowOrig1).Select
Selection.Cut
Rows(iRowOrig1 + iRowRunter1).Select
Selection.Insert Shift:=xlDown
So ist das Makro sehr langsam.
Hier das ganze Makro:
Private Sub t09_sortierte_alle_gleiche_passende_f_untereinander()
'BRAUCHT SEHR SEHR LANGE !!!!!!!!!!!
Sheets("DB_Moved").Select
'1. sortiere nach Datum
'2. sortiere nach Uhrzeit
Dim iRowOrig1 As Integer, iRowRunter1 As Integer
For iRowOrig1 = 2 To 80 'Zeile 2 bis 80 **2 To 55
For iRowRunter1 = 1 To 80 'Spalte 1 bis 20 **1 To 50
If Sheets("DB_Moved").Cells(iRowOrig1, 2).Value = Sheets("DB_Moved").Cells(iRowOrig1 + _
iRowRunter1, 2).Value Then
Rows(iRowOrig1).Select
Selection.Cut
Rows(iRowOrig1 + iRowRunter1).Select
Selection.Insert Shift:=xlDown
End If
Next iRowRunter1
Next iRowOrig1
Range("a1").Select
End Sub
Vielen Dank