VBA Performance Delete

Guten Morgen liebe Forumsleut,
ich muss mal wieder um Rat/Hilfe bitten, da ich etwas verunsichert bin. Aus Performance-Gründen habe ich alle .Select/Activate Anweisungen kürzlich verbannt, bzw. versuche komplett alles auf VBA Ebene zu verlagern.
So auch nachfolgenden Codeschnipsel (kleiner Auszug), der relativ schnell im Vergleich zu früheren Codes, Anfangs purer MakroaufnahmeCode, dann immer wieder etwas verbessert, nun so die gewünschten Daten löscht:
Dim WS15Mdel, lastrow15M
lastrow15M = WS15M.Cells(Rows.Count, 11).End(xlUp).Rows.Row
For WS15Mdel = lastrow15M To firstrow1 Step -1
If WS15M.Cells(WS15Mdel, 7).Value "1" Then
WS15M.Rows(WS15Mdel).Delete Shift:=xlUp
End If
Next WS15Mdel
Mir ist nicht klar, wie ich WS15Mdel (Range der zu löschenden Zeilen) genau auf die Tabelle definiere, dies kommt mir zu pauschal vor, konnte aber nichts dahingehend ergooogeln (verrücktes Wort, ergoogeln....). Ich liebe Wortfindungen, z.B. Klönen & Telefonieren = Klönflonat. :) Sorry für den Spaß am Rande...
Ich werde jedoch das Gefühl nicht los, hier was übersehen zu haben, oder lässt sich dies nicht mehr besser performen.
Über Vorschläge würde ich mich freuen.
Daneben noch meine Frage zu Meinungen in die Runde:
Vor einiger Zeit, ich finde den Artikel nicht mehr, habe ich gelesen, dass UDFs, alle CPU-Kerne bei Berechnung nutzen, hingegen VBA-Code nur einen Kern der CPU nutzt. Ist dies richtig, sollte man dann nicht seine Formeln zu UDFs konvertieren und dann diese in den VBA-Code als Funktion integrieren?
Für Antworten bin ich sehr dankbar und wünsche schon einmal für Alle einen guten Rutsch in ein besseres, gesundes 2021.
Also DANKE vorab und liebe Grüße
Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub aaa() Dim i As Long, loLetzte As Long, raLöschen As Range Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual On Error GoTo Ende With Worksheets("Tabelle1") For i = .Cells(.Rows.Count, 11).End(xlUp) To 1 Step -1 If .Cells(i, 7) 1 Then If raLöschen Is Nothing Then Set raLöschen = .Cells(i, 1) Else Set raLöschen = Union(raLöschen, .Cells(i, 1)) End If End If Next i If Not raLöschen Is Nothing Then raLöschen.EntireRow.Delete End With Ende: On Error GoTo -1 Set raLöschen = Nothing Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

Hallo Werner,
bin Dir erneut zum Dank verpflichtet. Habe mich mit Remove.Duplicates befasst und bin dann auf die Variante gekommen, entsprechend zu sortieren, die Beginnzeile des zu löschenden Zeilenbereiches zu ermitteln und in einem Schwung zu löschen. Dank Dir nochmals die Verarbeitungszeit um 90% reduziert.
Also DANKE und guten Rutsch!
Liebe Grüße
Rainer ...Top Forum hier!
+++++++++++++++++++++++++++++++++++++++++++++

Sub Tools_Zeilen_Bedingung_sortiert_löschen_VBA()
Dim verarbeitungszeit As Double
Dim infoverarbeitungszeit As String
verarbeitungszeit = Timer
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Dim myWB As Workbook
Set myWB = ThisWorkbook
Dim WS15M As Worksheet
Set WS15M = myWB.Sheets("test")
Dim firstrow1 As Long
Dim lastrow1 As Long
Dim firstdelrng1 As Range
Dim firstdelrow1 As Long
firstrow1 = 7
lastrow1 = WS15M.Cells(Rows.Count, 11).End(xlUp).Rows.Row
Range(WS15M.Cells(firstrow1, 7), WS15M.Cells(lastrow1, 15)).Sort Key1:=Range("G7"), Order1:= _
_
_
xlAscending
Set firstdelrng1 = Range(WS15M.Cells(firstrow1, 7), WS15M.Cells(lastrow1, 7)).Find("2")
firstdelrow1 = firstdelrng1.Row
WS15M.Rows(firstdelrow1 & ":" & lastrow1).Delete
Set firstdelrng1 = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
infoverarbeitungszeit = Round(Timer - verarbeitungszeit, 2)
infoverarbeitungszeit = Format((Timer - verarbeitungszeit) / 86400, "hh:mm:ss")
MsgBox "Laufzeit Sekunden: " & infoverarbeitungszeit
End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread