Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte von einer Tabelle in die Autofilter Tabelle kopieren

Werte von einer Tabelle in die Autofilter Tabelle kopieren
04.10.2024 18:48:40
Thomas
Guten Abend,

Ich versuche ein Makro zu schreiben wo es darum geht, Werte aus einer Tabelle in eine Autofiltertabelle zu kopieren.

Das momentane Problem liegt darin, dass die Werte in die Tabelle wo die Autofiltertabelle angelegt ist, überführt werden, jedoch die Werte außerhalb der Autofiltertabelle kopiert werden.

Ich habe hier das Skript, ich weiss nicht ob das für euch reicht? Meine Vermutung liegt darin, dass wohl diese Filtertabelle angesprochen werden muss, aber ich weiss nicht wie und wo noch Code ergänzen?
Kann mir bitte jemand dabei einen Tipp geben?

Besten Dank an euch alle.
Gruss
Thomas

'Angeben ab welcher Spalte hineinkopiert werden muss
ZeDst = wksDst.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Angeben in welcher Range Daten ausgeschnitten werden müssen
'angeben ab welcher Spalte hineinkopiert werden muss
Range("A" & ZeSrc & ":D" & ZeSrc).Copy
wksDst.Cells(ZeDst, 1).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von einer Tabelle in die Autofilter Tabelle kopier
04.10.2024 21:10:11
ralf_b
was ist denn deiner Meinung nach eine Autofiltertabelle?

Ist es ein einfacher Bereich auf den ein Filter angewendet wird oder eine Intelligente Tabelle mit aktiviertem Filter.

In beiden Fällen sollte es reichen die neuen Werte direkt unten an den Datenbereich anzufügen.
Möglicherweise ist es notwendig das der Filter ausgeschaltet und dann wieder eingeschaltet werden muß damit die Filterfunktion den ganzen Bereich erfassen kann.
Anzeige
AW: Werte von einer Tabelle in die Autofilter Tabelle kopier
04.10.2024 21:56:15
Thomas
Hallo Ralf,

danke erst mal für Deine Antwort.

Ich habe eine aus Excel direkte Filtertabelle mit ein paar wenigen Klickt erstellt.

Im Normalfall mache ich diese aber per Makro.

ich dachte gerade oja die Filter ausschalten das ist eine gute Idee. Der Hund liegt irgendwo im Detail weil ich kann diese von Excel generierte Filtertabelle nicht ansprechen, heisst ich kann diese Filter nicht ausschalten. Woran kann das auch nur liegen?

Code geht bei mir so.
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
Anzeige
AW: Werte von einer Tabelle in die Autofilter Tabelle kopier
05.10.2024 12:40:35
ralf_b
Activesheet.Autofilter.Range
AW: Werte von einer Tabelle in die Autofilter Tabelle kopier
06.10.2024 15:53:25
Thomas
'Inteligente Tabelle ausschalten
If Worksheets("Gesamt aktiv").ListObjects.Count > 0 Then
ActiveWorkbook.Worksheets("Gesamt aktiv").ListObjects("TabelleAktive").Unlist


Activesheet.Autofilter.Range.... funzt bei einer intelligenten Tabelle nicht. Oder anders gesagt, ja schaltet die Filter aus, aber die Umhüllung (die dazugehörige Tabelle) bleibt als Objekt aktiv. Und kann deshalb nicht in diese Tabelle werte reinkopieren. Kriege es nur mit obigem Code gebacken, um dann innerhalb dieser Intelligente Tabelle etwas zu bewegen. Wieso ich aber direkt nur mit dem ListObiects nicht weiter komme verstehe ich nicht?



Anzeige
AW: Werte von einer Tabelle in die Autofilter Tabelle kopier
07.10.2024 15:54:24
ralf_b
Wenn du mit dem Listobject arbeiten willst, dann sollten du den code aus deinem Eingangsposting nicht so benutzen. Das ist ein Code der auf dem Blatt arbeitet ohne einen einzigen Verweis zum Listobject.

Nimm dir die letzte Listrow und gehe an der ersten Zelle eins nach unten und erweitere den Bereich mit den einzufügenden Zeilen und Spalten und hast ein Fenster um die Daten dort einzufügen.

so ganz ohne copy wäre es so.
Sub a()

Dim rng As Range
Set rng = [i3:k5] 'deine einzufügenden Daten
With ActiveSheet.ListObjects(1)
.ListRows(.ListRows.Count).Range(1).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
End With

End Sub



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige