Per VBA Zeilen von einer Mappe in eine andere Mappe kopieren

Hallo an alle,

ich würde einen VBA Code benötigen, um aus einer Eingabemaske ("Mappe 1") bestimmte Zellen in eine intelligente Tabelle in einer anderen Mappe ("Mappe2") zu speichern. Der Code steht in Mappe 1. Als erstes sollte Mappe 2 geöffnet werden und dann eine neue Zeile eingefügt werden. Danach sollten die gewünschten Zellen aus Mappe 1 ausgeschnitten und als Wert ihn Mappe 2 eingefügt werden. Als letztes solle sich Mappe 2 noch speichern. Ich habe mir ein entsprechendes Makro aufgenommen und da funktioniert eigetlich sehr gut, allerdings kann ich da leider nichts ändern. Ich habe eine neue Zelle aus Mappe 1 in Mappe 2 speichern wollen, leider habe ich den Code nicht entsprechend umändern können bzw. konnte ich die neue Zeile nur ganz hinten einfügen und nicht dort wo es sinn macht. Es wäre sehr toll wenn mir jemand den Weg zu meinen Ziel zeigen könnte. Folgenden Code habe ich mit dem Makro aufgenommen:

Gibt es einen einfacheren bzw. besseren code? Also, wenn ich mittendrin daraufkomme, dass ich etwas vergessen habe. Das ich dann einfach das irgendwo ergänzen kann?

Dankeschön und LG Dado

https://www.herber.de/bbs/user/163965.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim wbkZiel As Workbook, wsZiel As Worksheet, wswQuelle As Worksheet Application.ScreenUpdating = False ChDir "C:\Doc\Desktop\Test" Set wbkZiel = Workbooks.Open(Filename:="C:\Doc\Desktop\Test\Mappe2.xlsm") Set wsZiel = wbkZiel.Sheets("Daten ZBau") Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1") 'ggf. anpassen wsZiel.Rows("2:2").ListObject.ListRows.Add (1) wsQuelle.Range("B38:C38").Copy wsZiel.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False wsQuelle.Range("F38:K38").Copy wsZiel.Range("B2").PasteSpecial Paste:=xlPasteValues wsQuelle.Range("D11:K11").Copy wsZiel.Range("CD2").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False wbkZiel.Save wsQuelle.Range("B12:K15,D11:K11").ClearContents End Sub

Hallo,

folgendes habe ich zusammengebracht, leider bekomme ich eine Fehlermeldung: Laufzeitfehler ´1004´: Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden. Ich weiß leider nicht was geändert gehört. Kann mir bitte jemand behilflich sein.

Sub kopieren()





    Dim wbkZiel As Workbook, wsZiel As Worksheet, wswQuelle As Worksheet



    Application.ScreenUpdating = False

    ChDir "C:\Doc\Desktop\Montageberichte"

    

    Set wbkZiel = Workbooks.Open(Filename:="C:\Doc\Desktop\test\test.xlsm")

    Set wsZiel = wbkZiel.Sheets("Daten ZBau")

    Set wsQuelle = ThisWorkbook.Worksheets("testen")   'ggf. anpassen

        

    wsZiel.Rows("2:2").ListObject.ListRows.Add (1)

    

    wsQuelle.Range("AO263:EL263").Select

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Selection.Delete Shift:=xlToLeft

    

    wsQuelle.Range("Q263:EF263").Copy

    wsZiel.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    

    Application.CutCopyMode = False

    

    wbkZiel.Save

    wsQuelle.Range("B18:I33,B44,G44:K44").ClearContents

    

End Sub

Beliebteste Forumthreads (12 Monate)

Per VBA Zeilen von einer Mappe in eine andere Mappe kopieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per VBA Zeilen von einer Mappe in eine andere Mappe kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread