Bildschirmflackern während Schleife unterdrücken

Computer: Software & Programmierung Office Software
1

Hallo,

Wie kann man das flackern des Bildschirmes während der Ausführung des folgenden Codings unterdrücken:

Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop

Vielen Dank
Gunter

2

Grüezi Gunther

Wie kann man das flackern des Bildschirmes während der
Ausführung des folgenden Codings unterdrücken:

Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop

Setze die Bildschirm-Aktualisierung ausser Kraft:

Application.ScreenUpdating = False
'Dein Code
Application.ScreenUpdating = True

oder lösche nicht jede leere Zeile einzeln, sondern als Paket, z.B. wie folgt:

Columns(ActiveCell.Column).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
3

Grüezi Gunther

Setze die Bildschirm-Aktualisierung ausser Kraft:

Application.ScreenUpdating = False
'Dein Code
Application.ScreenUpdating = True

oder lösche nicht jede leere Zeile einzeln, sondern als Paket,
z.B. wie folgt:

Columns(ActiveCell.Column).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hallo Thomas,

vielen Dank, klappt wunderbar.

Dein zweiter Vorschlag geht so nicht, weil ich keine leeren Zeilen lösche, sondern doppelte.

Gruß
Gunter