Einfacher Code viel zu langsam!
07.11.2017 17:14:08
Tobias
Folgender Code läuft viel zu langsam. Kann ich den irgendwie beschleunigen?
Sinn des Makros ist es, dass man in einer Übersichtstabelle einzelne Werte aus der Spalte C löscht. Anschließend klickt man auf das Makro. Nun soll automatisch erkannt werden, wo genau in Spalte C leere Felder sind. Entsprechende Zeilen sollen komplett gelöscht werden. Anschließend muss in Spalte B noch eine neue Rangfolge definiert werden.
Vorschläge, wie das schneller geht? Ich kann währenddessen Mittagessen gehen. :D
Private Sub CommandButton27_Click()
Dim ZeileMaxListe As Integer
Dim H As Integer
Dim R As Integer
Dim i As Integer
Dim letztezeile As Integer
Application.ScreenUpdating = False
ActiveWindow.Selection.Clear
letztezeile = Sheets("Übersicht").Cells(2500, 2).End(xlUp).Row
For i = 21 To letztezeile
With Sheets("Übersicht")
If .Cells(i, 3).Value = "" Then .Rows(i & ":" & i).Delete
i = i - 1
End With
Next
ZeileMaxListe = Tabelle2.Range("C21").End(xlDown).Row
Tabelle2.Range("B21:B" & ZeileMaxListe).Clear
R = 1
For H = 21 To ZeileMaxListe
Tabelle2.Cells(H, 2) = R
R = R + 1
Next H
Application.ScreenUpdating = True
End Sub
Viele Grüße!