https://www.herber.de/bbs/user/151549.xlsx
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
LG UweD
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
Gruß
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
Gruß Daniel
Sub Mit_Autofilter()
With Cells(1, 1).CurrentRegion
.AutoFilter field:=1, Criteria1:=4
.Columns(2).Replace 7, "", xlWhole
.AutoFilter
End With
End Sub
Gruß Daniel