Spalte einer Tabelle copypasten
22.03.2020 19:02:17
hofe
ich habe hier ein kleines Problem und könnte Gerade die Wand anschreien ;-).
Ich möchte gerne eine gefilterte Spalte von einer Tabelle einer Arbeitsmappe in eine andere Tabelle einer Arbeitsmappe kopieren.
Nun zu meinen Problem.
in folgenden Code kopiert zwar nur den gefilterten Inhalt, aber ich bekomme es nicht hin, das _ er in der Tabelle startet.
Sub spalte_kopieren()
Dim lngSpalte As Long
Dim wksZiel As Worksheet
Set wksZiel = Sheets("Übersicht")
With wksZiel
lngSpalte = .Cells(1, Columns.Count).End(xlToLeft).Column
If Application.CountA(.Columns(lngSpalte)) > 0 Then lngSpalte = lngSpalte + 1
End With
Range("Tabelle2[Spalte1]").Select
Selection.Copy
wksZiel.Cells(1, lngSpalte).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Und nun wird es richtig nervig, wo ich vermutlich restlos mit meinem Wissen an meine Grenzen stoße.
Ich möchte auch gerne die Überschrift dynamisch gestalten.
Also das in der in der Überschrift steht, wie viele Zellen mit Filter aus der Übersprungsmaske eingefügt wurden.
Weil ich es schlecht erklären kann, habe ich mal meine Excel Datei mit an den Beitrag gehangen.
https://www.herber.de/bbs/user/136021.xlsm