Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro gefilterte Daten einfügen

Makro gefilterte Daten einfügen
Werner
Hallo Zusammen,
in Excel 2003 lasse ich ein Makro über eine Schaltfläche laufen, zum Einfügen von gefilterten Daten aus einer anderen Datei. Das hat auch immer funktioniert. mit der Umstellung auf Excel 2010 geht das Einfügen nicht mehr.
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="<>*Nietmutter*", Operator:=xlAnd
Selection.AutoFilter Field:=2, Criteria1:="<>"
Selection.AutoFilter Field:=1, Criteria1:="<>ArbPlatz", Operator:=xlAnd
Selection.AutoFilter Field:=3, Criteria1:=">=32000000000", Operator:=xlAnd
Cells.Select
Selection.Copy
Windows("Werkzeugprotokoll10.xls").Activate
Sheets("Symbollisteorg").Select
ActiveSheet.Paste
Hier bei ActiveSheet.Paste bekomme ich immer die Fehlermeldung, der Bereich Kopieren und Einfügen stimmen nicht überein.
Kann mir da jemand helfen.
Gruss Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro gefilterte Daten einfügen
11.04.2012 13:59:49
fcs
Hallo Werner,
bei der Verwendung von Cells.Select vor dem Kopieren gibt es Probleme, wenn du von einer Datei im 2007er/2010er-Excelformat in eine Datei Excel 2003 oder älter kopierst, da die Spalten und Zeilenzahl in den neuen Version größer ist als in den frühren Versionen.
Probiere mal folgendes. Dann wird der zu kopierende Zellbereich auf den Bereich der gefilterten Daten begrenzt.
Gruß
Franz 
Sub aaTest()
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
If .AutoFilterMode = True Then
If .FilterMode = True Then .ShowAllData
Else
.UsedRange.AutoFilter
End If
With .AutoFilter.Range
.AutoFilter Field:=9, Criteria1:="*Nietmutter*", Operator:=xlAnd
.AutoFilter Field:=2, Criteria1:=""
.AutoFilter Field:=1, Criteria1:="ArbPlatz", Operator:=xlAnd
.AutoFilter Field:=3, Criteria1:=">=32000000000", Operator:=xlAnd
.Select
.Copy
End With
End With
Windows("Werkzeugprotokoll10.xls").Activate
Sheets("Symbollisteorg").Select
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Anzeige
AW: Makro gefilterte Daten einfügen
16.04.2012 14:40:35
Werner
Hallo Franz,
klappt super danke für Deine Hilfe. Konnte erst jetzt antworten, da ich im Urlaub war.
Gruß Werner

299 Forumthreads zu ähnlichen Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Gefilterte Zeilen/ Spalten Kopieren
Falk

Hallo zusammen,
folgendes Problem für mich:
Ich filtere den Bereich von A1:CD1000. Der Filter wird je nach Anforderung auf verschiedene Spalten gesetzt.
In den Zellen von Spalte A befindet sich eine Formel, die den Blattnamen anzeigt wenn in Spalte D und F etwas eingetragen ist anso...
11.11.2008 10:13:33
Thread-ID: 1023442
3 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Gefilterte Spalten anzeigen
Gernot

Hallo zusammen,
habe eine Liste mit 64 Spalten und ca. 5.000 datensätzen, die nach mehreren Kriterien
gefiltert wird(Autofilter). Es ist sehr mühsam, die gefilterten Spalten ausfindig zu machen.
Ich stelle mir vor, alle Spalten, in denen der Filter eingeschaltet ist, in eine Combobo...
05.12.2008 22:51:00
Thread-ID: 1030615
6 Beiträge
gefilterte Daten in Listbox einfügen
Larissa

Hallo,
ich möchte nur gefilterte daten in eine Listbox einlesen. Dieses Makro habe ich hier gefunden:
ClassModule: Artikel
Private Sub Worksheet_Calculate()
Dim iCounter As Integer
lstFilter.Clear
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCoun...
17.01.2009 17:30:00
Thread-ID: 1040940
2 Beiträge
Nur gefilterte Daten in die Listbox
Larissa


Hallo,
ich möchte nur gefilterte Daten in der Listbox anzeigen lassen und kriege das nicht hin.
Ich füge mal meinen Code ein:
Private Sub UserForm_Activate() Dim lLetzte As Long Dim lZeile As Long Dim lLibox As Long Application.ScreenUpdating = False With Me.ListBox1 .Co...
17.01.2009 20:14:35
Thread-ID: 1040981
7 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
3
4
2
6
4
2
3
5
1
6
5
10
1
4
1
5
1
6
6
3
2
8
1
2
2