Ganze Spalten kopieren mit InputBox
20.10.2021 11:35:26
Gary
ich habe schon viele Einträge gesucht und gelesen, aber noch nichts passendes gefunden.
Normalerweise zeichne ich meine Makro´s auf, aber in diesem Fall bin ich noch nicht weit genug mit VBA´s.
Ich möchte eine ganze Spalte (z.b. Spalte A) einer Excel-Tabelle in eine andere Excel-Tabelle (anderes Laufwerk), gleiche Spalte kopieren.
In Spalte C stehen Werte für Januar, diese sollen in eine andere Tabelle (gleiche Spalte C) übertragen werden in den Januar.
In eine InputBox möchte ich den Monat (Januar) eingeben, und das Marko soll erkennen, das Januar die Spalte C bedeutet, diese kopiert und in die gleiche Spalte in einer anderen Tabelle einfügen.
Wenn ich also März in die InputBox eingebe, soll die ganze Spalte E kopiert und in der anderen Tabelle in Spalte E eingefügt werden. usw.
Hier meine Aufzeichnung:
In diesem Fall ist der Januar C4, Februar D4, März E4 ...... Dezember N4
Sub Spalte_kopieren()
' Spalte_kopieren Makro
Windows("Strom_Mappe_1.xlsx").Activate
Columns("C:C").Select
Selection.Copy
Windows("Strom_Mappe_2.xlsx").Activate
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vielleicht habt Ihr ja eine Idee, wie ich das umsetzten kann.