ProgressBar
18.01.2007 12:53:26
Markus
ich habe auf meiner Form (frmTEST) einen Button, mit dem ich beim Klick unten stehenden Code auslöse
(löschen von Spalten und Zeilen).
Jetzt habe ich zusäztlich auf meiner Form einen ProgressBar (progStatus) eingebaut, mit dem ich
gerne den Fortschritt beim löschen von den Spalten und Zeilen anzeigen möchte.
Ist das irgendwie möglich?
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
'Löschen Spalten
Dim i As Integer
For i = 58 To 23 Step -1
If Not Sheets("Test").Cells(2, i).Value = ComboBox1 Then
Sheets("Test").Cells(1, i).EntireColumn.Delete
End If
Next
Sheets("Test").Activate
'Löschen Zeilen
Dim lngRow As Long, lngLast As Long
Dim rng As Range
lngLast = Cells(Rows.Count, 5).End(xlUp).Row
For lngRow = 50 To lngLast
If Cells(lngRow, 5) = "" Then
If rng Is Nothing Then
Set rng = Rows(lngRow)
Else
Set rng = Union(rng, Rows(lngRow))
End If
End If
Next
If Not rng Is Nothing Then rng.Delete
Application.ScreenUpdating = True
End Sub
Für eine Antwort schon jetzt vielen Dank!
Markus