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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen