Sub Loesche_Wenn_B_40800E4T()
Dim iCalc As Integer
Dim Sh_Tabelle1 As Worksheet
Set Sh_Tabelle1 = Sheets("Tabelle1") 'Deine Tabelle anpassen
With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
With Sh_Tabelle1.UsedRange
With .Columns(.Columns.Count).Offset(0, 1)
'=WENN($B2="40800E4-T";WAHR;ZEILE())
.FormulaR1C1 = "=IF(RC2=""40800E4-T"",TRUE,ROW())"
Sh_Tabelle1.UsedRange.Sort .Cells(1, 1), xlAscending, , , , , , xlNo
On Error Resume Next
.Cells.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
.FormulaR1C1 = "=IF(RC2=""40800E4-T"",TRUE,ROW())"
' in:
.FormulaR1C1 = "=IF(ISERROR(FIND(""40800E4-T"",RC2)),ROW(),TRUE)"
.FormulaR1C1 = "=IF(CountIF(RC2;(""*40800E4-T*""),TRUE,ROW())"
Sub Loesche_Wenn_B_40800E4T()
Dim iCalc As Integer
Dim Sh_Tabelle1 As Worksheet
Set Sh_Tabelle1 = Sheets("Tabelle2") 'Deine Tabelle anpassen
With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
With Sh_Tabelle1.UsedRange
With .Columns(.Columns.Count).Offset(0, 1)
.Cells.NumberFormat = "General"
.FormulaR1C1 = "=IF(ISERROR(FIND(""40800E4-T"",RC2)),ROW(),TRUE)"
Sh_Tabelle1.UsedRange.Sort .Cells(1, 1), xlAscending, , , , , , xlNo
On Error Resume Next
.Cells.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
Sub Makro1()
With ActiveSheet.UsedRange
.AutoFilter Field:=2, Criteria1:="=*40800E4-T*", Operator:=xlAnd
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
.AutoFilter
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen