recorderaufzeichnungscode schöner schreiben?

Sub Makro4() Sheets("x").Select Columns("A:P").Select Selection.Copy Workbooks.Open Filename:="C:\Users\Spenski\Documents\TESTDATEI.htm" Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close Sheets("y").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Eine Zellreferenzierung besteht immer aus den drei Objekten Workbook.Worksheet.Range
In der Recorder-Aufzeichnung werden diese drei objekte nacheinander selektiert und dann der Befehl auf das selektierte Objekt angewendet.
Der Recorder muss das so aufzeichnen, weil wir Mausschubser so arbeiten.
Im Makro jedoch kann man den Befehl auf die gesamte Objektkette direkt anwenden:

Sub Makro4()
Sheets("x").Columns("A:P").Copy
Workbooks.Open Filename:="C:\Users\Spenski\Documents\TESTDATEI.htm"
Range("A1").PasteSpecial xlpasteall
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("y").Select
End Sub

Lässt man in der Objektkette einzelne Objekte weg (Workbook oder Workbook.Worksheet), so setzt VBA das jeweils aktive Element an dieser Stelle ein, deswegen richt beim Einfügen die Zellangabe aus, weil direkt nach dem Öffnen die geöffnete Datei das aktive Workbook .
Beim Einfügen von Excelzellen in andere Excelblätter sollte man nicht das allgemeinenEinfügen aus der Zwischenablage verwenden, sondern das Excelspezifische Inhalte-Einfügen aus dem Kontextmenü.
Dieses hat für VBA den Vorteil, dass man die Zielzelle direkt angeln kann und nicht selektieren muss.
Gruß Daniel

Sub Seite1() Sheets("A").Cells.Copy Workbooks.Open Filename:="C:\Users\Spenski\Documents\TESTDATEI.htm" ActiveSheet.DrawingObjects.Select Selection.Delete Range("A1").PasteSpecial xlPasteAll Application.CutCopyMode = False ActiveWorkbook.Save ActiveWorkbook.Close Sheets("A").Select ActiveSheet.Shapes.Range(Array("Picture 3")).Select Selection.Copy Workbooks.Open Filename:="C:\Users\Spenski\Documents\TESTDATEI.htm" Range("C6").Select ActiveSheet.Paste ActiveWorkbook.Save ActiveWorkbook.Close If t = True Then Timer2 End Sub

Sub Seite1() Sheets("A").Shapes.Range(Array("Picture 3")).Copy 'hier wird der fehler ausgeben Workbooks.Open Filename:="C:\Users\Spenski\Documents\TESTDATEI.htm" Range("C6").Paste ActiveWorkbook.Save ActiveWorkbook.Close End Sub

Beliebteste Forumthreads (12 Monate)

recorderaufzeichnungscode schöner schreiben?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread