Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Daten in zwei tabellenblätter kopieren

VBA Daten in zwei tabellenblätter kopieren
22.02.2017 21:04:51
Mike
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Daten in zwei tabellenblätter kopieren
22.02.2017 21:11:45
Mike
Hallo
erledigt, habe den Fehler selbst gefunden
wstag.Range("A2:M2").Resize(letzteZeilecsv - 1).Copy _
Destination:=wstag.Cells(letzteZeiletag + 1, "A")
ThisWorkbook.Activate
Anzeige

342 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige