EXCEL: Ausgewählte Spalten einer Tabelle in eine andere Tabelle kopieren

Hallo!

Ich bekomme täglich Daten in einer Tabelle geliefert, von denen ich für eine spezielle Aufgabe nur genau 2 (leider nicht zusammenhängende) Spalten brauche. Die "Urtabelle" darf nicht verändert werden. Deshalb möchte ich die Spalten K und U kopieren und als A und B in einer neuen Tabelle (innerhalb der gleichen Arbeitsmappe) verwenden.

Gibt es ein einfaches Makro dafür?

Dank im Voraus
Yorck

 

Ich hab´s jetzt:

Sub SpaltenKopieren()

Sheets("quelle").Columns("K:K").Copy
Sheets("ziel").Paste Destination:=Sheets(Worksheets.Count).Columns("A:A")
Sheets("quelle").Columns("U:U").Copy
Sheets("ziel").Paste Destination:=Sheets(Worksheets.Count).Columns("B:B")

Application.CutCopyMode = False
End Sub

Einfach und funktioniert. Trotzdem freue ich mich über Anregungen und Verbesserungsvorschläge.

Gruß
Yorck

 

Hallo Yorck.

Das Makro kann es auch mit nur 2 Befehls-Zeilen >>>

Sub Spaltenkopieren()
Sheets("ziel").Columns("A").Value = Sheets("quelle").Columns("K").Value
Sheets("ziel").Columns("B").Value = Sheets("quelle").Columns("U").Value
End Sub

Aber warum ein Makro, anstatt direkt in den Zellen? Im Blatt "ziel", in den Zellen A1 und B1 >>>

=quelle!K1
=quelle!U1
...und dann beides runterkopieren...

Wenn für leere Zellen in "quelle" keine Nullen in "ziel" erscheinen sollen, dann so schreiben >>>

=WENN(quelle!K1="";"";quelle!K1)

Gruss Urs

 

Hallo Urs,

vielen Dank, das funktioniert fast perfekt.

Ein Makro deshalb, weil ich die Daten der "quelle" vorher mit dem Autofilter etwas ausdünnen möchte. Es werden nicht alle Zeilen benötigt und so "ziel" immer wieder neu erstellt. (Hintergrund ist die Analyse einer bestimmten Gruppe von Datensätzen.) Bei der vorliegenden Lösung werden die beiden Spalten 1:1 übernommen, also alle Datensätze.

Gibt es eine Möglichkeit, dass der in der "quelle" gesetzte Autofilter nicht ignoriert wird und nur die benötigten Datensätze der beiden Spalten nach "ziel" übertragen werden?

Gruss
Yorck

 

...man sollte schon vorher erwähnen, dass da ein Autofilter drin steckt...

Nimm das was Du im Prinzip vorher schon hattest >

Sub SpaltenKopieren()
Sheets("quelle").Columns("K").Copy Destination:=Sheets(Worksheets.Count).Columns("A")
Sheets("quelle").Columns("U").Copy Destination:=Sheets("ziel").Columns("B")
End Sub

Die obere Zeile kopiert ins Blatt rechts aussen,
die untere ins Blatt "ziel"

Gruss Urs

 

... das mit dem Autofilter war mir nicht bewußt. Sorry.

Yorck