Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einfügen in gefilt. Tabelle

einfügen in gefilt. Tabelle
20.03.2022 14:00:08
Fred
Hallo Excel Experten,
Bisher habe so kopiert und eingefügt

ThisWorkbook.Sheets("import").Range("A5:A" & ende_import).SpecialCells(xlCellTypeVisible).Copy
ThisWorkbook.Sheets("Live").Range("A5").PasteSpecial Paste:=xlPasteValues
Nun möchte ich die formatierte Tabelle >Live Meine Frage:
Wie schreibe ich das obere Makro um, so das nicht jedesmal der Filter gelöscht werden muss, wenn ich das kopierte einfügen will?
Wenn das nicht möglich ist;
Gibt es einen Prozedurteil,
1. der die Filterkriterien einer formatierten Tabelle sich merken kann
2. die Filter löscht
3. und nach dem einfügen diese Filterung wieder herstellt?
Gruss
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: einfügen in gefilt. Tabelle
20.03.2022 14:21:41
onur
Poste mal eine Beispielsdatei.
AW: einfügen in gefilt. Tabelle
20.03.2022 14:54:44
Fred
Hallo Onur,- VBA Gott :-)
ich mußte die Datei stark kürzen, hoffe aber, das diese ausreichend ist.
https://www.herber.de/bbs/user/151906.xlsb
Meine theoretische Vorgehensweise wäre:
Filterkriterien speichern
Filter löschen (in dem Fall 2, Germany + Bundesliga II)
kopieren und einfügen (wie bisher)
gleiche Filter wieder setzen
Gruss
Fred
Filterkriterien speichern
21.03.2022 10:43:53
Fred
Hallo Excel Experten,
ich bin im Web auf eine Lösung gestoßen, welche Filterkriterien speichert und abruft.
Der Code (bezogen auf meine Sheets):

Sub f_kriterium()
Dim w As Worksheet
Dim filterArray()
Dim currentFiltRange As String
Dim col As Integer
Sheets("Live").Activate
Set w = ActiveSheet
' Capture AutoFilter settings
With w.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For f = 1 To .Count
With .Item(f)
If .On Then
filterArray(f, 1) = .Criteria1
If .Operator Then
filterArray(f, 2) = .Operator
End If
End If
End With
Next f
End With
End With
'Remove AutoFilter
With ThisWorkbook.Worksheets("Live")
If .FilterMode Then .ShowAllData
End With
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx code
' MsgBox "Filter entfernt"
Call automatic
Call abfrageAktualisieren
Call vonLiveNachImport
Call inTagesliste
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
' Restore Filter settings
For col = 1 To UBound(filterArray(), 1)
If Not IsEmpty(filterArray(col, 1)) Then
If filterArray(col, 2) Then
w.Range(currentFiltRange).AutoFilter field:=col, _
Criteria1:=filterArray(col, 1), _
Operator:=filterArray(col, 2), _
Criteria2:=filterArray(col, 3)
Else
w.Range(currentFiltRange).AutoFilter field:=col, _
Criteria1:=filterArray(col, 1)
End If
End If
Next col
End Sub
Klappt! Wenn die Filter in Zeile 1 gesetzt sind.
Meine Frage:
Wie ändere ich das Makro, wenn die formatierte Tabelle (Überschriften) in Zeile 4 beginnt?
Ich kenne 

Set ZeileAutoFilter = .Rows(4)
wird aber wohl falsch sein .....
Kann mir ein Excel Profi bitte helfen!?
Gruss
Fred
Anzeige
AW: Filterkriterien speichern/Lösung
21.03.2022 11:31:40
Fred
Hallo Excel Experten,
das Makro findet ja seine FilterKriterien unter 

currentFiltRange = .Range.Address
folglich selektiere ich zuvor eine Zelle in der Zeile, wo die Filter gesetzt sind

w.Range("A4").Select
und nu funzt es.
Gibt es eine Verbesserung?
Gruss
Fred
Warum nicht konsequent PQ?
21.03.2022 18:26:50
Yal
Hallo Fred,
wenn ich mich nicht täusche, arbeitest Du auch mit Power Query. Warum nicht konsequent bei PQ bleiben?
_ in einer Liste 1, deine Einträge,
_ in eine andere (2), alle aus dem Web.
Aus Liste 2 eine Filterung machen (wenn Du etwas "immer ausgeblendet" haben möchte, dann brauchst Du es nicht in dieser Liste) und die Liste hinzufügen. Alles in PQ.
Siehe in Power Query Abfrage duplizieren und verweisen.
VG
Yal
Anzeige

309 Forumthreads zu ähnlichen Themen

unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Cbo Eintrag mit Erklärungstext
Peter

Hallo Experten,
in einer Combobox sind ca 30 Schlüsselnummern eingetragen. Zur Erklärung: jede Schlüsselnummer beschreibt einen Fehler auf einem Röntgenfilm. Gibt es irgendeine Möglichkeit, das bei Auswahl eines Schlüssels zur Orientierung ein Hilfetext aufgerufen wird, bei der Übernahme in...
03.09.2008 10:56:00
Thread-ID: 1007035
3 Beiträge
Anzeige
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
1
2
5
2
6
4
3
2
3
6
4
1
3
9
2
1
4
3
6
3
15
13
6