Hallo Dominik,
der Code kopiert doch schon die Daten von den anderen Tabellen in die Tabelle wksD.
Falls jetzt nur noch die Markierung an die zuletzt kopierten Zellen gesetzt werden soll, reichen folgende Befehle
wksD.Activate
wksD.Cells(iRow + 1, 2).Select
Diese Befehle müssen als letzte Befehle ausgeführt werden.
Falls die ganze Zeile vom Spalte 2 - 34 markiert werden soll, muss nachstehende Befehle ausgeführt werden:
wksD.Activate
Range(Cells(iRow + 1, 2), Cells(iRow + 1, 34)).Select
LG, BigBen
|