Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro doch recht langsam

makro doch recht langsam
13.10.2005 08:03:12
frank
hallo liebe leute,
ich habe folgendes problemchen:
in einer tabelle ca 1500nochwas zeilen ist in spalte m eine formel die mir auf grund einer abfrage ja oder "" ausgibt und auf grund dieser formel wird die komplette zeile gelöscht mit folgendem makro:

Sub i()
Dim i As Long
For i = Range("M1510").End(xlUp).Row To 1 Step -1
On Error Resume Next
If WorksheetFunction.CountIf(Cells(i, 13), "JA") > 0 Then Cells(i, 6).EntireRow.Delete
Next
End Sub

jetzt hab ich aber das problem das mein rechner (pIII 797Mhz und 512mb ram) nicht unbedingt ne hochleistungsrechenmaschinerie ist und ich zum ausführen des makros ca. 3-4 minuten brauche...
jetzt meine frage wie kann ich dieses makro beschleunigen...
gruß frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro doch recht langsam
13.10.2005 08:16:22
Heiko
Hallo Frank,
das sollte schon mal helfen.

Sub i()
Dim i As Long
Application.Screenupdating = False
Application.Calculation = xlCalculationManual
For i = Range("M1510").End(xlUp).Row To 1 Step -1
On Error Resume Next
If WorksheetFunction.CountIf(Cells(i, 13), "JA") > 0 Then Cells(i, 6).EntireRow.Delete
Next
Application.Screenupdating = True
Application.Calculation = xlCalculationAutomatic
Application.Calculate
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
AW: makro doch recht langsam
13.10.2005 08:25:52
frank
hallo heiko,
ja aus 3-4 minuten wurdn mal kurz 15 sekunden da muss ich wohl artig danke danke sagen :)
gruß frank
Anzeige
AW: makro doch recht langsam
13.10.2005 08:23:53
Heinz
Hallo Frank,
so was Ähnliches hatten wir heute schon. Grundidee von Hajo Ziplies:

Sub ZeilenLöschen()
Dim cb As Range
Dim RaZeile As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cb In Range("M2:M1510")
If cb.Value = "JA" Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(cb.Row)
Else
Set RaZeile = Union(RaZeile, Rows(cb.Row))
End If
End If
Next cb
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.Calculate
End Sub

Gruß
Heinz
Anzeige
AW: makro doch recht langsam
13.10.2005 08:27:22
frank
hallo heinz,
dir auch besten dank
gruß frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige