Hallo,
mit diesen Code sollen Daten in zwei Tabellenblätter kopiert werden.
' 3. Daten kopieren
letzteZeileXLSB = wsXLSB.Cells(Rows.Count, 1).End(xlUp).Row
letzteZeilecsv = wsCSV.Cells(Rows.Count, 1).End(xlUp).Row
letzteZeiletag = wstag.Cells(Rows.Count, 1).End(xlUp).Row
wsCSV.Range("A2:M2").Resize(letzteZeilecsv - 1).Copy _
Destination:=wsXLSB.Cells(letzteZeileXLSB + 1, "A")
wstag.Range("A2:M2").Resize(letzteZeilecsv - 1).Copy _
Destination:=wstag.Cells(letzteZeiletag + 1, "A")
ThisWorkbook.Activate
Workbooks(datcsv).Close SaveChanges:=False
Hier die deklarierten Variablen
Dim wbXLSB As Workbook
Dim wsXLSB As Worksheet
Dim wbCSV As Workbook
Dim wsCSV As Worksheet
Dim wstag As Worksheet
Dim letzteZeileXLSB As Integer
Dim letzteZeilecsv As Integer
Dim letzteZeiletag As Integer
und die festgelegten Bereiche
Set wbXLSB = Workbooks(datXLSB)
Set wsXLSB = wbXLSB.Worksheets("Datentabelle")
Set wstag = wbXLSB.Worksheets("Tagesbestellungen")
Er kopiert die Daten in das Tabellenblatt "Datentabelle" aber nicht in "Tagesbestellungen"
Das Makro läuft ohne Fehler durch.
Wo liegt denn der Fehler ?
Gruß und Danke Mike