Office: Zellen aus anderem Tabellenblatt kopieren und einfügen

Guten Tag allerseits!

Habe wieder ein kleines VBA Problem vor welchem ich gerade Sitze.

Und zwar habe ich mir eine Userform mit 2 Schaltflächen erstellt. Es ist zu erwähnen das ich mich nicht mehr in der zugehörigen Datei befinde wenn die Userform auf geht, sondern in einer anderen.

Folgendes soll passieren wenn ich den Button

"Ja" betätige:

Kehre zur Ursprungsdatei "Test (28).xlsm" zurück, kopiere aus dem Tabellenblatt "MMS_Backup" die Spalten A-F und füge diese im Tabellenblatt "MMS_Montage" für die Spalten A-F ein.(Dies spielt sich in der selben Datei ab) Das Format der Zieldatei soll übernommen werden.

"Nein" betätige:

Kehre zur Ursprungsdatei "Test (28).xlsm" zurück und schließe diese ohne zu speichern.

Der Code den ich bis jetzt für die Ja und Nein Buttons habe, sieht folgendermaßen aus:

Private Sub No_Click()

Unload Me
ActiveWorkbook.Close savechanges:=False

End Sub

Private Sub yes_Click()

Sheets("Backup_MMS").Select
Columns("A:F").Select
Range("F2").Activate
Selection.Copy
Sheets("MMS_Montage").Select
Columns("A:F").Select
Range("A2").Activate
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Range("G26").Select

Unload Me
End Sub

Ich habe schon Versucht vor das Sheets("Backup_MMS").select

folgenden Begriff zu verwenden:

Windows("Test (28).xlsm").activate

aber mir wird die ganze Zeit beim Debuggen folgender Fehler aufgezeigt:

Index außerhalb des gültigen Bereichs oder so.

Wäre über jede Art von Hilfe dankbar, hoffe auf Lösungsvorschläge.

Viele Grüße

Robert

:)

 

Hallo Robert,

Workbooks("Test (28).xlsm").Sheets("Backup_MMS").Columns("A:F").Copy
With Sheets("MMS_Montage").Columns("A:F")
.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
End With
Application.CutCopyMode = False
Unload Me

 

Hallo Hajo,

vielen Dank erstmal für deine schnelle Rückmeldung! Der Code wird super im Tabellenblatt ausgeführt. Habe ihn aber ein wenig umgeändert, so z.B. habe ich den Doppelpunkt hinter PasteSpecial.Paste weggelassen.:

Private Sub yes_Click()

Workbooks("Test(29).xlsm").Sheets("Backup_MMS").Columns("A:F").Copy
With Workbooks("Test(29).xlsm").Sheets("MMS_Montage").Columns("A:F").PasteSpecial.Paste = xlPasteAllUsingSourceTheme

End With

Application.CutCopyMode = False

Unload Me
End Sub

Allerdings kommt ein neuer Fehler hinzu. Objekt erforderlich und markiert mir die farbige Zeile.

Vielen Dank vorab!

Viele Grüße

Robert

 

Hallo Robert,

das musst Du den Fragen, der Dir gesagt hat Doppelpunkt löschen. Der war schon drin.

 

Hallo Hajo,

Wenn ich den Doppelpunkt wieder rein nehme dann erhalte ich direkt im Editor folgenden Fehler:

Fehler beim Kompilieren: Erwartet Anweisungsende.

Codezeile:

With Sheets("MMS_Montage").Columns("A:F").PasteSpecial Paste:=xlPasteAllUsingSourceTheme

Kannst mir da evtl. weiterhelfen.

vielen Dank schon mal.

Viele Grüße

Robert

 

dazu kann ich nichts schreiben, bei mir kommt kein Fehler.

 

Hallo Hajo,

hab den Code jetzt per Strg C & V in VBA Editor eingefügt. Funktioniert jetzt einwandfrei. Musste aber noch vor der Anweisung Sheets("MMS_Montage").Columns...

Workbooks("Test(29).xlsm").

Einfügen.

Vielen Dank und schönen Tag noch.

Viele Grüße

Robert