Hallo Werner,
habe das Makro heute in meiner Zieldatei ausprobiert und bin dabei auf folgendes Problem gestoßen.
Ich habe in der Zieltabelle "Punkte erledigt" bereits Einträge in einigen Spalte. Frei sind also nur die Spalten der Tabelle, in die das Makro den Inhalt kopieren soll. Daher schiebt das Makro die Inhalte derzeit unter, statt in die Tabelle.
Kannst du mir sagen, wie dein Makro verändert werden muss, damit der Inhalt nicht in die erste komplett leere Zeile, sondern in die erste Zeile in der die Spalten (C und D) leer sind.
Public Sub Test()
Dim loZeile As Long, loLetzte As Long
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1") 'Blattname anpassen
Set wsZiel = ThisWorkbook.Worksheets("Tabelle2") 'Blattname anpassen
loZeile = Selection.Row
loLetzte = wsZiel.Cells(wsZiel.Rows.Count, 3).End(xlUp).Row + 1
Range(Cells(loZeile, 2), Cells(loZeile, 3)).Copy wsZiel.Cells(loLetzte, 3)
Rows(loZeile).Delete
Set wsQuelle = Nothing: Set wsZiel = Nothing
End Sub
Vielen Dank und beste Grüße,
Patrick
|