Private Sub CommandButton1_Click()
Dim i, x As Integer
x = 1
i = 1
 
For i = 2 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
 
If ActiveSheet.Cells(i, 2).Interior.ColorIndex = 32 Then
 
     Worksheets(3).Cells(i, 1).Value = ActiveSheet("Tabelle1").Cells(i, 2).Value
 
 
End If
 
Next i
 
End Sub