hab leider net so die ahnung von makros etc..
gruss
Christoph
Sub nadann()
Dim Lrow As Long
'wenn eine Zelle aktiv und diese Zelle grellgrün ist
If ActiveCell.Count = 1 And ActiveCell.Interior.ColorIndex = 4 Then
'erste freie Zelle in Blatt 2 Spalte A
Lrow = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
'grüne Zelle dorthin kopieren
ActiveCell.Copy Sheets(2).Cells(Lrow, 1)
'Kopiermodus zurücksetzen
Application.CutCopyMode = False
End If
End Sub