Microsoft Excel

Herbers Excel/VBA-Archiv

mit Select ist Makro langsam

Betrifft: mit Select ist Makro langsam von: mehmet
Geschrieben am: 19.10.2014 17:32:19

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

  

Betrifft: AW: mit Select ist Makro langsam von: Rudi Maintaire
Geschrieben am: 19.10.2014 17:45:05

Hallo,
Rows(iRowOrig1).cut
Rows(iRowOrig1 + iRowRunter1).Insert Shift:=xlDown

Gruß
Rudi


  

Betrifft: AW: mit Select ist Makro langsam von: mehmet
Geschrieben am: 19.10.2014 18:05:42

Hallo Rudi,
vielen Dank.
Ist jetzt bisschen schneller.
Habe noch:
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
und
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an
hinzugefügt.
herzliche Grüsse
mehmet


  

Betrifft: AW: mit Select ist Makro langsam von: Daniel
Geschrieben am: 20.10.2014 01:42:12

Hi
warum sortierst du nicht einfach mit der Sortierfunktion von Excel?
das geht sehr schnell.
Zeilenweise ausschneiden und einfügen ist so ziemlich das langsamste was du in Excel machen kannst.

Gruß Daniel


 

Beiträge aus den Excel-Beispielen zum Thema "mit Select ist Makro langsam"