Wer bastelt mir eine Fortschrittsanzeige?

[perostojkov]

Hallo excel Freunde,

ich brauche eure Hilfe, vba ist nicht meine Stärke.

Es dauert manchmal 20 sec bis der Code ausgeführt wird.
Hab viel gelesen und bekomme es trotzdem nicht hin eine Fortschrittsanzeige einzubauen

Eine UserForm, nur mit Progressbar habe ich erstellt.

1. Kann bitte jemand den Code erweitern, dass die Fortschriftanzeige funktioniert?
2. Gibt es andere Möglichkeit die leeren Zellen schneller zu entfernen?           Range A1 bis D400

LG perostojkov

Code:

Sub leer_loeschen()
Dim lgCount As Long
Dim lgLetzte As Long
lgLetzte = Sheets("Import").Range("A65536").End(xlUo).Row
For lgCount = lgLetzte To 1 Step -1
   If IsEmpty(Sheets("Import").Cells(lgCount, 1)) Then
       Sheets("Import").Cells(lgCount, 1).Delete shift:=xlUp
       End If
   If IsEmpty(Sheets("Import").Cells(lgCount, 2)) Then
       Sheets("Import").Cells(lgCount, 2).Delete shift:=xlUp
       End If
   If IsEmpty(Sheets("Import").Cells(lgCount, 3)) Then
       Sheets("Import").Cells(lgCount, 3).Delete shift:=xlUp
       End If
   If IsEmpty(Sheets("Import").Cells(lgCount, 4)) Then
       Sheets("Import").Cells(lgCount, 4).Delete shift:=xlUp
       End If
Next
End Sub

[Kuwer]

Hallo,

vielleicht geht es so schneller, so dass gar keine Fortschrittanzeige benötigt wird:

Sub leer_loeschen_kuwer()

 Dim lgCount As Long, lgCalc As Long

 lgCalc = Application.Calculation

 Application.ScreenUpdating = False

 Application.Calculation = xlCalculationManual

 With Sheets("Import").Range("A1:D400")

   For lgCount = 1 To 4

     .Columns(lgCount).SpecialCells(xlCellTypeBlanks).Delete xlUp

   Next lgCount

 End With

 Application.Calculation = lgCalc

 Application.ScreenUpdating = True

End Sub

Gruß Uwe

[RPP63]

Moin!
Das geht sogar noch einfacher:

Code:

Sub Wech_Damit()
Worksheets("Import").Range("A:D").SpecialCells(xlCellTypeBlanks).Delete
End Sub

Gruß Ralf

[perostojkov]

DANKE² Jungs,

unglaublich was eine Zeile bewirken kann.
Die Fortschrittsanzeige ist damit überflüssig

LG perostojkov