Excel - Kopieren und Einfügen von Daten beim Klicken

Problem

Ich habe einen Datensatz von A2 bis A10. Wenn ich Zelle B1 drücke, die das Wort "Januar" enthält, werden die Daten in B2 bis B10 kopiert. Wenn ich Zelle D1 drücke, die das Wort "March" enthält, werden die Daten in D2 bis D10 kopiert.

Mit anderen Worten, ich möchte, dass die Daten in die von mir angeklickten Spalten kopiert und eingefügt werden.

Lösung

Ich habe angenommen, Sie haben eine Spalte für jeden Monat, daher wird der Code nur aktiviert, wenn eine Zelle im Bereich B1: M1 ausgewählt ist.

Dieser Code sollte den Trick machen:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Wenn Intersect (Target, Range ("B1: M1")) nicht vorhanden ist, beenden Sie Sub Range ("A2: A10"). Copy Destination: = Cells (2, Target.Column) End Sub 

Wenn Sie möchten, dass der Code für die gesamte erste Zeile funktioniert, ändern Sie Folgendes:

 Bereich ("B1: M1") in Zeilen (1).