Daten in andere Liste kopieren - VBA

Sub A1InachMasterdatei() ' A1InachMasterdatei Makro ActiveWindow.LargeScroll ToRight:=-3 Range("A1:I1023").Select Selection.Copy Workbooks.Open Filename:="P:\Röst und Schüttauftrag\aaa_Masterdatei.xlsm" ActiveSheet.Paste Columns("A:A").EntireColumn.AutoFit Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AbisIendeNachMasterdatei() Dim Quelle As Workbook Dim Ziel As Workbook Dim LetzteI As Long Set Quelle = ThisWorkbook Workbooks.Open Filename:="P:\Röst und Schüttauftrag\aaa_Masterdatei.xlsm" Set Ziel = ActiveWorkbook LetzteI = Quelle.Worksheets("Artikelmerkmale").Cells(1048576, 9).End(xlUp).Row Quelle.Worksheets("Artikelmermale").Range("A2:I" & LetzteI).Copy Ziel.Worksheets("Artikelmerkmale").Range("A1").Paste Application.CutCopyMode = False Ziel.Save Ziel.Close Quelle.Activate End Sub

Sub AbisIendeNachMasterdatei() Dim Quelle As Workbook Dim Ziel As Workbook Dim LetzteI As Long Set Quelle = ThisWorkbook Workbooks.Open Filename:="P:\Röst und Schüttauftrag\aaa_Masterdatei.xlsm" Set Ziel = ActiveWorkbook LetzteI = Quelle.Worksheets("Artikelmerkmale").Cells(1048576, 9).End(xlUp).Row Quelle.Worksheets("Artikelmerkmale").Range("A2:I" & LetzteI).Copy Ziel.Worksheets("Artikelmerkmale").Activate ActiveSheet.Paste Application.CutCopyMode = False Ziel.Save Ziel.Close Quelle.Activate End Sub

Hallo zusammen,
Ihr solltet ein bisschen an Eurer Kommunikation arbeiten:
Beitrag 1: Tabelle aaa_Masterdatei.xlsm Reiter Artikelmerkmale
müsste wohl heissen: Arbeitsmappe "aaa_Masterdatei.xlsm" Tabellenblatt "Artikelmerkmale"
Beitrag 2: Quelle.Worksheets("Artikelmermale")....
müsste wohl heissen: Quelle.Worksheets("Artikelmerkmale")....
Beitrag 5: Tabelle Artikelmarkmale und da aus dem Arbeitsblatt Artikelmarkmale
müsste wohl heissen: Arbeitsmappe "?" und das aus dem Tabellenblatt "Artikelmerkmale"
Beitrag 6: Zieldatei hat 3 Tabellen (Tabelle3, Tabelle2 und Artikelmarkmale)
müsste wohl heissen: Artikelmerkmale
@Christian: Stufe bitte deine Levels zurück!
Vielleicht hilft der Code. Du solltest die 2 Konstanten auf Richtigkeit gegenprüfen.
Als Quelle wird das aktive Blatt der Mappe angewendet, in welcher der Code steht.

Sub A1InachMasterdatei()
Const cZielMappe As String = "P:\Röst und Schüttauftrag\aaa_Masterdatei.xlsm"
Const cZielBlatt As String = "Artikelmerkmale"
Dim wsQ As Worksheet
Set wsQ = ThisWorkbook.ActiveSheet
Application.ScreenUpdating = False
With Workbooks.Open(cZielMappe)
wsQ.Range(wsQ.Cells(1, 1), wsQ.Cells(wsQ.Rows.Count, 1).End(xlUp).Offset(, 8)).Copy _
Destination:=.Worksheets(cZielBlatt).Cells(1, 1)
.Worksheets(cZielBlatt).Columns(1).AutoFit
.Close Savechanges:=True
End With
Application.ScreenUpdating = True
End Sub

Gruess Hansueli

Hallo zusammen,
@Hansueli: ich muß mich Michael (migre)s Meinung anschließen: tres elegant!
(ich warte auf den Tag, an dem ich beim ersten Entwurf einer Kopieraktion nicht "1004" sehe)
Tja, in Deiner (offenen) Quelltabelle kannst Du ja hantieren, wie Du willst, also würde ich Hilfsspalten anlegen und direkt in Excel verformeln, etwa so:


*CJ*           *CK*          usw.
=AW1&" "&AX1   =AY1&" "&AZ1  usw.

Die kannst Du dann in einem Rutsch kopieren, analog wie oben, nur halt mit paste special.
D.h., Du fügst nach der Zeile "Destination" diese beiden Zeilen ein:


wsQ.Range(wsQ.Cells(1, 88), wsQ.Cells(wsQ.Rows.Count, 88).End(xlUp).Offset(, 8)).Copy
.Worksheets(cZielBlatt).Cells(1, 10).PasteSpecial xlPasteValues

CJ ist die Spalte 88, wenn Du es woanders hast, mußte halt die beiden 88er entsprechend ändern.
Schöne Grüße,
Michael (der andere)

Beliebteste Forumthreads (12 Monate)

Daten in andere Liste kopieren - VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten in andere Liste kopieren - VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread