ProgressBar

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