Sub löschen()
Dim RNG1 As Range, Z
Set RNG1 = Range("A1:A13")
For Each Z In RNG1
If Z = 4 And Z.Offset(0, 1) = 7 Then
Z.Offset(0, 1).ClearContents
End If
Next
End Sub
Sub aaa()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If rngC = 4 Then
If rngC.Offset(, 1).Text = "07" Then
rngC.Offset(, 1).ClearContents
End If
End If
Next rngC
End Sub
Sub Mit_Formel()
With Cells(1, 1).CurrentRegion
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=IF(AND(RC1=4,RC2=7),1,"""")"
If WorksheetFunction.Sum(.Cells) > 0 Then _
Intersect(Columns(2), .SpecialCells(xlCellTypeFormulas, 1).EntireRow).ClearContents
.ClearContents
End With
End With
End Sub
Sub Mit_Autofilter()
With Cells(1, 1).CurrentRegion
.AutoFilter field:=1, Criteria1:=4
.AutoFilter field:=2, Criteria1:="07"
.Offset(1, 0).Columns(2).ClearContents
.AutoFilter
End With
End Sub
Sub Mit_Autofilter()
With Cells(1, 1).CurrentRegion
.AutoFilter field:=1, Criteria1:=4
.Columns(2).Replace 7, "", xlWhole
.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