Macros schneller machen

Sub ZeilenLoeschenaktuellesMonat() Dim Zeile% Dim x With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With Sheets("aktuelles_Monat").Select For Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(Zeile, 10) = "a" Then x = 1 'wenn Zelle leer If Cells(Zeile, 10) = "b" Then x = 1 'wenn Zelle =? If Cells(Zeile, 10) = "c" Then x = 1 If Cells(Zeile, 10) = "d" Then x = 1 If x = 1 Then ActiveSheet.Rows(Zeile & ":" & Zeile).Delete x = 0 With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With End If Next End Sub

Sub ZeilenLoeschenVormonat() Dim Zeile% Dim x With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With Sheets("Vormonat").Select For Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(Zeile, 10) = "a" Then x = 1 'wenn Zelle leer If Cells(Zeile, 10) = "b" Then x = 1 'wenn Zelle =? If Cells(Zeile, 10) = "c" Then x = 1 If Cells(Zeile, 10) = "d" Then x = 1 If x = 1 Then ActiveSheet.Rows(Zeile & ":" & Zeile).Delete x = 0 With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With Sheets("aktuelles_Monat").Select For Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(Zeile, 10) = "a" Then x = 1 'wenn Zelle leer If Cells(Zeile, 10) = "b" Then x = 1 'wenn Zelle =? If Cells(Zeile, 10) = "c" Then x = 1 If Cells(Zeile, 10) = "d" Then x = 1 If x = 1 Then ActiveSheet.Rows(Zeile & ":" & Zeile).Delete x = 0 End If Next Zeile With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With

Hallo Daniel...
Das zweite Mal, dass du mir in dieser Woche negativ auffällst bzw. persönlich abfällig über Andere urteilst, ohne Hintergründe zu kennen.
Bons Code war gar nicht schlecht, ich habe, weil ich nur flüchtig drübergeschaut habe die Hauptbremse übersehen, nämlich dass die Application. Optionen noch in der For...Next Schleife wieder eingeschaltet werden.
Zum Thema Variablen:
Mag sein, dass zwischen Integer und Long heutzutage durch den Prozessor kein Unterschied mehr besteht.
Dein Beispiel mit dem 32 Tonner ist allerdings vollkommener Schwachsinn, natürlich läuft der schneller, wenn er leichter beladen ist. Du bist mit deinem PKW auch schneller, wenn du statt mit den 5 möglichen Personen alleine drin sitzt.
Um auf deinem Niveau zurückzuschießen:
Das zeigt, wie gut du logische Zusammenhänge in der realen Welt begreifst, nämlich kaum!
ABER:
Es besteht ein Unterschied, ob man eine Variable als Variant deklariert, oder direkt als Long/Integer!
Denn so muss Excel jedesmal doppelte Arbeit machen.
Zu Deinen Beitrag zum Thema:
Klar geht es schnell, mit Hilfe von "Duplikate entfernen" Zeilen zu löschen.
Irgendwie scheint das aber deine Standardantwort zu sein, sobald du irgendwo das Signalwort "Zeilen löschen" liest.
Nicht jeder will eine Hilfsspalte!
Nicht bei jeder Tabelle ist die Duplikate Löschen Funktion hilfreich, da sie nur über begrenzte Einstellmöglichkeiten verfügt, was beispielsweise die Auswahl der zu durchsuchenden Zeilen betrifft.
Just sayin nobody is perfect!
Da Du ein typisches Beispiel dafür bist, was mit der Gesprächskultur der Leute im Internet passiert, werde ich in Zukunft nicht mehr darauf eingehen!
Ich wünsche mir hiermit, dass du auf keinen meiner zukünftigen Beiträge antwortest, und zwar unabhängig davon, ob es ein Kommentar zu mir persönlich oder zu meiner Arbeit ist
Vielen Dank!
Robert

Robert schrieb

Dein Beispiel mit dem 32 Tonner ist allerdings vollkommener Schwachsinn, natürlich läuft der  _
schneller, wenn er leichter beladen ist. Du bist mit deinem PKW auch schneller, wenn du statt mit den 5 möglichen Personen alleine drin sitzt.
Um auf deinem Niveau zurückzuschießen:
Das zeigt, wie gut du logische Zusammenhänge in der realen Welt begreifst, nämlich kaum!

danke für die Aufklärung.
ich dachte immer die Masse würde nur das Beschleunigungvermögen beeinflussen und nicht die Höchstgeschwindigkeit.
Bei der Höchstgeschwindigkeit hatte ich immer gelaubt, diese würde in erste Line bei LKWs per Gesetzt/Technische Einrichtungen auf 80 km/h limitert, und bei unlimitierten Fahrzeugen durch den Luftwiderstand.
Aber nochmal Danke, das du mir zumindest hier hilfst, die Zusammenhänge in der realen Welt besser zu verstehen.
mal zu den ernsteren Themen:
ich verwende das Duplikate entfernen standardmäßig zum Löschen von Zeilen, weil es
- sehr schnell ist
- den geringsten Programmieraufwand verursacht und absolut einfach zu programmieren ist (keine Variablen, keine Schleifen, keine Bedingungsprüfungen, keine exotischen VBA-Funktionen)
- keine Eingriffe in die Datenstrukur erfordert um schnell zu sein (wie z.B. Sortieren)
- auch bei grössten Datenmengen funktioniert (auch bei 1,04 Mio Zeilen)
- auch ohne VBA von Hand anwendbar ist
- durch die Formel alle Zeilen zuerst gekennzeichnet werden, bevor sie gelöscht werden. Dadurch habe ich die möglichkeit, meinen Code (dh in diesem Fall die Formel) auf richtigkeit zu prüfen bevor die Daten verändert werden, dh ich kann Korrekturen vornehmen, und den Code weiter laufen lassen, ohne dass ich erst den ursprünglichen Datenstand wiederherstellen muss (was aufwendig sein kann, da es für durch Änderungen durch Makro kein Undo gibt)
Alle anderen Löschmethoden haben diese Vorteile nicht oder nur teilweise, weswegen meiner Ansicht nach für die aktuellen Excelversionen (2007-2013) das Duplikate-Entfernen einfach die beste Löschmethode von Zeilen in grossen Tabellen ist
Warum sollte ich jemand anderem dann was anderes empfehlen als das, was ich für das beste halte?
zum Thema Hilfszeilen:
ja ich weiss, viele wollen keine Hilfszeilen.
Es gibt aber so gut wie nie einen realen Grund, der die Verwendung von Hilfsspalten verbietet, zumal diese ja nach Verwendung sofort wieder gelöscht werden und somit keinen Einfluss auf die eigentliche Tabelle haben.
Thema mangelnde Variabilität:
die Einstellmöglichkeiten von Duplikate entfernen sind doch für diese Aufgabe unwichtig.
die Entscheidung, ob eine Zeile gelöscht werden muss oder nicht wird ja durch die Formel erledigt und dadurch hast du sehr viele Möglichkeiten um die Löschbedingungen zu formulieren.
Gruß Daniel

Sub Leerzeilen_loeschen() ' alle Leerzeilen löschen Dim LoI As Long Dim RaZeile As Range Application.ScreenUpdating = False For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row If Application.WorksheetFunction.CountA(Rows(LoI)) ActiveSheet.UsedRange. _ SpecialCells(xlCellTypeLastCell).Column Then If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange. _ SpecialCells(xlCellTypeLastCell).Column Then If RaZeile Is Nothing Then Set RaZeile = Rows(LoI) Else Set RaZeile = Union(RaZeile, Rows(LoI)) End If End If End If Next LoI If Not RaZeile Is Nothing Then RaZeile.Delete Application.ScreenUpdating = True Set RaZeile = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread