Hallo,

mit nachfolgendem Makro sollte das realisiert sein, was u Dir vorgestellt hast. Kopiere nachfolgendes Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.

[b]Option Explicit

Sub Auswerten_kopieren()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = "X" Or Cells(i, 1) = "x" Then
Cells(i, 2).Copy
Sheets("Tabelle2").Cells(Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).Row, 1).PasteSpecial Paste:=xlPasteValues
End If
Next
End Sub[/b]

Ich hoffe, Du kommst klar. Bei Fargen melde Dich wieder.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}