AW: Makro Zahlen mit drei 0 löschen
07.04.2009 11:36:01
Tino
Hallo,
geht es hiermit?
Es werden zwei Hilfsspalten am ender der Tabelle verwendet, diese werden wieder gelöscht.
Den Tabellennamen musst Du noch anpassen.
Option Explicit
Sub LoescheDatenMit_000()
Dim Bereich As Range, Bereich1 As Range
With Sheets("Tabelle1") 'Tabellenname anpassen
Application.ScreenUpdating = False
Set Bereich = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
Set Bereich = Bereich.Offset(0, .Columns.Count - 1)
Set Bereich1 = Bereich.Offset(0, -1)
Bereich.FormulaR1C1 = "=IF(LEFT(RC1,3)=""000"",0,"""")"
Bereich1.FormulaR1C1 = "=IF(RC[1]=0,0,ROW())"
Bereich1.Value = Bereich1.Value
If Application.WorksheetFunction.CountIf(Bereich, 0) > 0 Then
.UsedRange.Sort Bereich1(1), xlAscending, , , , , , xlNo
Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
.UsedRange.Sort Bereich1(1), xlAscending, , , , , , xlNo
End If
.Columns(.Columns.Count).Delete
.Columns(.Columns.Count - 1).Delete
Application.ScreenUpdating = True
End With
End Sub
Gruß Tino