Kleines VBA Code Problem
16.01.2009 19:35:01
maxx_1985
Warum loescht mir Excel hier nur die ersten zwei Zeilen? Hat jemand eine Idee?
Danke!
Sub step9()
Dim i, lz As Long
lz = Cells(Rows.Count, 6).End(xlUp).Row
For i = 1 To lz
If Cells(i, 6) = "" Then
Exit For
End If
Next i
Range("A2", Cells(i - 1, 43)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.DisplayAlerts = False
Selection.Delete
End Sub