Kopieren, Einfügen und Löschen einer Tabelle in Excel

Ich habe eine Arbeitsmappe mit 3 Arbeitsblättern (Aktuelle Woche, Besprechungsverlauf, Letzte Woche). Das Arbeitsblatt 'Aktuelle Woche' enthält 3 Tabellen. Mein Ziel ist es, eine der drei Tabellen in den Besprechungsverlauf zu kopieren und dann die ursprüngliche Tabelle zu löschen, damit sie am nächsten Tag wieder verwendet werden kann. Der Grund dafür ist, dass ich möchte, dass "Meeting History" die ganze Woche über ein Zentrum für alle Minuten ist. Ich habe gerade eine Schaltfläche mit einem Makro, mit dem die Tabelle gelöscht wird, und ich hoffe, dass diese Schaltfläche auch die Daten in den Besprechungsverlauf kopieren kann, bevor die Tabelle gelöscht wird. Wie kann dies erreicht werden, damit dies täglich durchgeführt werden kann und bis zum Ende der Woche ein vollständiges Informationsblatt zum Besprechungsverlauf während der Woche gesammelt / formatiert werden kann?

Dies ist mein aktuelles Makro für die Schaltfläche "Löschen". Die Informationen, die ich zu kopieren versuche, sind die Informationen in G6-G12 und G14-G18. Der Rest muss nicht kopiert, sondern am Ende des Tages gelöscht werden.

Sub Clearcells()
Range("F6", "F12").ClearContents
Range("G6", "G12").ClearContents
Range("H6", "H12").ClearContents
Range("G14", "G18").ClearContents
Range("H14", "H18").ClearContents
Range("H3", "H4").ClearContents
Range("H22", "H28").ClearContents
End Sub

microsoft-excel windows-8.1 worksheet-function macros microsoft-excel-2016 Aris
quelle

Wenn Sie das vorhandene Makro ändern möchten, müssen Sie den Code kopieren und einfügen, damit wir ihn ergänzen können.

Worthwelle

@worthwelle Ich habe gerade meinen ersten Beitrag mit meinem aktuellen 'Clear'-Makro aktualisiert. Ich bin relativ neu im Umgang mit Excel-Makros, daher entschuldige ich mich, wenn es mir recht jugendlich vorkommt, und bedanke mich für jede Hilfe, die mir die Community geben kann.

Aris

Sie können diesen Code durch die Verwendung von einiges vereinfachen Range("F6:H12").ClearContents. Können Sie zum Kopieren auf ein anderes Blatt eine Bildschirmabdeckung des Quell- und Zielbereichs bereitstellen? Oder teilen Sie uns zumindest mit, in welchen Bereich auf dem Zielblatt kopiert werden soll?

cybernetic.nomad

@ cybernetic.nomad Super! Ich habe es nur vereinfacht und es hat super funktioniert. Wie für das Kopieren auf ein anderes Blatt. Ich möchte alles nehmen, was gelöscht wird, und es dem Arbeitsblatt mit dem Namen "Besprechungsverlauf" hinzufügen. Beginnen Sie bei B3 und gehen Sie nach unten. Ich hoffe auch, dass jeder Tag, an dem die Informationen verschoben werden, das, was bereits vom Vortag vorhanden ist, noch vorhanden ist, vielleicht nur nach unten verschoben wird oder so? Ich möchte nur nicht, dass das, was am Vortag verschoben wurde, gelöscht wird. Ich möchte eine Bildschirmkappe posten, aber aus irgendeinem Grund kann ich keine hochladen.

Aris