Hallo Daniel,
kopiere das folgende Makro in ein [url=
http://www.excelbeispiele.de/Modul.htm]Standard-Modul[/url] deiner Arbeitsmappe Mitgliederliste:
[code]Sub letzte_kopieren()
Dim lngLetzteQ As Long
Dim lngLetzteZ As Long
Dim lngZeile As Long
Dim wkbZiel As Workbook
Dim wksQuelle As Worksheet
Dim varEdition As Variant
Dim lngAnfang As Long
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
Set wksQuelle = ThisWorkbook.Worksheets("Mitgliederliste")
'letzte beschriebene Zeile im Quelltabelle feststellen
With wksQuelle
lngLetzteQ = .Cells(Rows.Count, 1).End(xlUp).Row
End With
'Arbeitsmappe, in die die Einträge kopiert werden sollen
'Name und Pfad anpassen
Set wkbZiel = Workbooks.Open("C:\Test\VersandMember.xlsx")
With wkbZiel.Worksheets("Versand") '1. Tabelle in Zieldatei
lngLetzteZ = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte beschriebene Zeile in Zieldatei feststellen
varEdition = .Cells(lngLetzteZ, 1).Value 'letzte Editionsnr. aus Zieldatei einlesen
End With
'in Quelldatei den letzten Eintrag aus Zieldatei suchen
For lngZeile = lngLetzteQ To 2 Step -1
If wksQuelle.Cells(lngZeile, 1) = varEdition Then
lngAnfang = lngZeile + 1 'Zeile in Quelle, ab der die Daten kopiert werden
Exit For
End If
Next lngZeile
'Spalten A bis L kopieren und in Zieldatei einfügen
With wksQuelle
.Range(.Cells(lngAnfang, 1), .Cells(lngLetzteQ, 12)).Copy Destination:=wkbZiel.Worksheets(1).Cells(lngLetzteZ + 1, 1)
End With
'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True
End Sub[/code]
Ich gehe davon aus, dass keine Sortierung der Mitgliederliste erfolgt, dass die Überschrift in der ersten Zeile steht und ab Zeile 2 die Mitgliederliste. Es werden die Einträge kopiert, die am Ende der Mitgliederliste eingefügt werden. Dazu wird in der Versandliste geprüft, welche Editions-Nr. zuletzt vorhanden ist.
Es erfolgt keine Speicherung der Datei VersandMember.xlsx.
Den Pfad für diese Datei musst du im Makro natürlich anpassen.
Gruß
M.O.