Ich möchte alle Zeilen im Tabellenblatt1 welche in Spalte E eine bestimmte Hintergrundfarbe haben, in Tabellenblatt2 speichern!!
Habe mich schon durch das Archiv gewühlt, bin aber nicht fündig geworden.
Kann mir jemand helfen?
Danke
Stephen
Sub Kopieren()
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
F = Selection.Interior.ColorIndex 'Version 1: wir selektieren zuerst eine Zelle, die die gesuchte Farbe hat
'F = 6 'Version 2: wir kennen bereit den gesuchten ColorIndex (siehe GetColorIndex)
For i = 1 To ws1.Range("E65500").End(xlUp).Row
If ws1.Cells(i, 5).Interior.ColorIndex = F Then
ws1.Rows(i).Copy
ws2.Range("A65500").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Version A: nur Werte kopieren
'ws2.Range("A65500").End(xlUp).Offset(1, 0).PasteSpecial 'Version B: alles kopieren: Format, Formel, ...
End If
Next i
End Sub
Sub GetColorIndex()
MsgBox Selection.Interior.ColorIndex
End Sub