Excel Makro ganze Zeile markieren

[TM F. (p_richner)]

Hallo zusammen

Im Excel möchte ich mit einem Makro anhand einer Produktnummer in einer 
Liste (Nummer steht in Spalte A) die ganze Zeile markieren, kopieren und 
in einem anderen Tabellenblatt wieder einfügen.

Die Zelle kann 1 bis 4 Zeilen beinhalten. Wenn grösser 1, so ist die 
erste Zelle der Nummer verbunden.

Mein Problem ist, dass nicht die ganze Zeile(die bis Spalte Q geht) 
markiert wird.

Nachfolgend der bisherige Code:

    Dim BGB As Long

    BGB = Worksheets("Tabelle1").Cells(3, "B").Value ' Speichert den Wert welcher in der Zelle B3 befindet, in der Variable BGB

        Sheets("Tabelle2").Select

        Cells.Find(What:=BGB, LookAt:=xlWhole, SearchOrder:=xlByRows).Activate ' Sucht die Zeile mit dem BGB-Wert
        

     '  Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection).Select
        
        
        Selection.Copy
        Sheets("Tabelle1").Select
        
        Range("A7:Q10").Select
        ActiveSheet.Paste

Der Problembereich ist

     '  Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection).Select

Ich weiss nicht und habe es auch nicht herausgefunden, wie ich den 
ganzen Bereich markieren kann. Zwischen Spalte A und Q können auch noch 
leere Zellen sein.

Vielen Dank für eure Hilfen. Ich vermute es ist nur ein fehlendes Wort, 
damit es funktioniert;

MfG und bereits ein schönes Wochenende.

Edit: Manchmal hat es auch noch Bilder in dem Bereich, die auch 
mitmarkiert werden müssen.

[Sascha W. (sascha-w)]

Hallo,

nach dem Find ...
rows(selection.row).select

Sascha

[TM F. (p_richner)]

Sascha W. schrieb:
> rows(selection.row).select

Danke super genau das habe ich gesucht.