AW: Zelle Rot, dann Datensatz kopieren
23.10.2014 17:42:23
fcs
Hallo Alex,
die Auswertung der bedingten Formatierung unter VBA ist etwas mühselig.
Ein einfacher Weg wäre hier die Nutzung des Autofilters, um die rotfarbigen Zellen zu kopieren.
Voraussetzung ist, dass die Zelle A19 nicht leer ist.
Ansonsten ist es ggf. einfacher die Bedingung der bedingten Formatierung im Code nachzubilden und dann die entsprechenden Zellen zu kopieren.
Gruß
Franz
'Erstellt unter Excel 2010
Sub Autofilter_Copy()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ActiveWorkbook.Sheets(1)
Set wks2 = ActiveWorkbook.Sheets(2)
wks2.Range("A20:A100").ClearContents
With wks1
With .Range("A19:A100")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
End With
.AutoFilter.Range.Offset(1, 0).Resize(.AutoFilter.Range.Rows.Count - 1, 1).Copy
wks2.Range("A20").PasteSpecial Paste:=xlPasteValues
.ShowAllData
.AutoFilterMode = False
End With
End Sub