Office: (Office 2013) Markierten Bereich kopieren und in anderer Datei einfügen

Hi Silcono, bitte entschuldige die späte Antwort.

Leider bin ich noch nicht wirklich weiter gekommen.

Mein aktueller Code sieht so aus:

Sub Makro1()
'
' Makro1 Makro
'

'

Selection.Copy
ChDir "F:WerbungMarketing"
Workbooks.Open Filename:= _
"F:WerbungMarketingTEST2.xlsx"
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=False

End Sub

Das klappt soweit eigentlich, aber ich habe noch das problem, dass er mir wenn ich vorher 20 zellen kopiert habe liegen ja auch 20 Zellen in Test2. Beim nächsten Kopiervorgang kopiere ich aber vielleicht nur 10 Zellen. Dann würde er mir die anderen zehn nicht löschen.

 

Hallo zusammen,

ich habe nun eine Lösung gefunden. Ist zwar etwas umständlich, aber letztenendes tut der code was er soll und führt zu dem gewünschten Ergebnis. Vielen vielen Dank nochmal an alle für die Unterstützung und Hilfe.

Mir ergibt sich hier eine weitere Frage: Gibt es die Möglichkeit, dass mir Excel eine Warnmeldung nach dem Klick auf Steuerelement ausgibt wenn die markierte Zelle sich nicht in der Spalte "D" oder "JL" befindet.

Ich will somit verhindern, dass versehentlich eine falsche Zelle per Code markiert wird.

Liebe Grüße

Anbei mein aktueller Code:

Sub ImportAuswahl()
'
' Makro um aktuelle Auswahl in ART_FF zu importieren
'

'
Application.DisplayAlerts = False
Selection.Copy
ChDir "F:Werbung...1_Mastertabellen"

Workbooks.Open Filename:= _
"F:Werbung...Freie-Felder-Test.xlsx"

Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"F:Werbung...ART_FF.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False


End Sub