also: wenn a3=1 dann kopiere die ganze Zeile in Blatt xxx nächste
Das I-Tüpfelchen währe noch eine vorherige Abfrage der Bedingung.
Vielen Dank im Voraus.
Sub kopieren()
Dim zeile
zeile = ActiveCell.Row
If Cells(zeile, 1) = 3 Then
Rows(zeile).Copy
Sheets("Tabelle2").Cells(3, 1).Select
ActiveSheet.Paste
End If
End Sub
Die Zeilen kannst du dir noch anpassen.
Gruß
otto