M
MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
Ich möchte nur die Zellen in "C" löschen die in "B" rot unterlegt sind.
Die Spalte "D" soll nicht berücksichtigt werden.
Wie kann ich das im Makro integrieren?
Sub Bereinigen()
Dim LRow As Long
With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter Field:=2, Criteria1:="VbRed"
.Range("C2:C" & LRow).ClearContents
.AutoFilterMode = False
.Range("A1:F" & LRow).Sort key1:=.Range("E1"), order1:=xlAscending, _
Header:=xlYes
.Range("B2:B" & LRow).Interior.ColorIndex = xlNone
End With
End Sub
Die Spalte "D" soll nicht berücksichtigt werden.
Wie kann ich das im Makro integrieren?
Sub Bereinigen()
Dim LRow As Long
With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter Field:=2, Criteria1:="VbRed"
.Range("C2:C" & LRow).ClearContents
.AutoFilterMode = False
.Range("A1:F" & LRow).Sort key1:=.Range("E1"), order1:=xlAscending, _
Header:=xlYes
.Range("B2:B" & LRow).Interior.ColorIndex = xlNone
End With
End Sub
