so müsste es gehen.
16.09.2009 10:37:32
Tino
Hallo,
Sub Loesche_Leere_In_G()
Dim meSH As Worksheet
Dim iCalc As Integer
Set meSH = Sheets("Tabelle1") 'Tabelle anpassen
With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
With meSH
With .UsedRange.Columns(.UsedRange.Columns.Count).Offset(0, 1)
.FormulaR1C1 = "=IF(OR(RC7<>"""",ROW()<5),ROW(),TRUE)"
meSH.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
On Error GoTo 0
.EntireColumn.Delete
End With
End With
.ScreenUpdating = True
.EnableEvents = True
.Calculation = iCalc
End With
End Sub
Gruß Tino