Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 09:46:10
Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 07:04:14
nicht löschbar
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern, kopieren, einfügen

Filtern, kopieren, einfügen
15.11.2016 15:23:43
Matthias
Hey liebe Experten :)
ich sitz mal wieder an vba und bekomm etwas nicht so hin wie ich gern möchte...
ich will einen Datensatz nacheinander jeweils nach einem Kriterium filtern (11,12 und 14) die gefilterten Daten dann kopieren und in ein neues Tabellenblatt einfügen
Und evtl. könnt ihr mir auch gleich noch einen Ansatz für das geben was dann noch mit rein soll^^ und zwar sollen die Tabellenblätter dann noch umgenannt werden mit bspw. A, B & C --> dafür hab ich bisher leider noch keine Idee wie das gehen soll
Mein Ansatz bisher:
  • 
Sub DatenFilter()
Dim Gesamt As Worksheet
Set Gesamt = ActiveWorkbook.ActiveSheet
i = Array("11", "12", "14")
For Each Item In i
Gesamt.Range("A:AI").AutoFilter Field:=23, Criteria1:=i
Gesamt.Range("A1:AI" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Application.CutCopyMode = False
Next
End Sub

    • Hoffe ihr könnt mir weiterhelfen und das mein Ansatz nicht völlig falsch ist.
    Grüße Matthias

    3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Filtern, kopieren, einfügen
    16.11.2016 11:20:03
    Michael
    Hallo Matthias!
    Das geht so...
    Wenn Du den Filterbereich mit Überschriften kopieren willst:
    Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets(1)
Dim WsZ As Worksheet
Dim Daten As Range, f, i As Long
f = Array(11, 12, 14)
With WsQ
Set Daten = .Range("A1:AI" & .Cells(.Rows.Count, 35).End(xlUp).Row)
For i = LBound(f) To UBound(f)
If WsQ.AutoFilterMode Then WsQ.AutoFilterMode = False
Daten.AutoFilter field:=23, Criteria1:=f(i)
.AutoFilter.Range.Copy
Set WsZ = Worksheets.Add
With WsZ
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
xlPasteValuesAndNumberFormats
.Name = "Ergebns_Filter_" & f(i)
End With
Set WsZ = Nothing
Next i
.Activate
Application.CutCopyMode = False
.AutoFilterMode = False
End With
End Sub
    Wenn Du den Filterbereich ohne Überschriftenzeile kopieren willst:
    Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets(1)
Dim WsZ As Worksheet
Dim Daten As Range, f, i As Long
f = Array(11, 12, 14)
With WsQ
Set Daten = .Range("A1:AI" & .Cells(.Rows.Count, 35).End(xlUp).Row)
For i = LBound(f) To UBound(f)
If WsQ.AutoFilterMode Then WsQ.AutoFilterMode = False
Daten.AutoFilter field:=23, Criteria1:=f(i)
With .AutoFilter.Range
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy
End With
Set WsZ = Worksheets.Add
With WsZ
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
xlPasteValuesAndNumberFormats
.Name = "Ergebns_Filter_" & f(i)
End With
Set WsZ = Nothing
Next i
.Activate
Application.CutCopyMode = False
.AutoFilterMode = False
End With
End Sub
    Passt? ;-)
    LG
    Michael
    Anzeige
    AW: Filtern, kopieren, einfügen
    17.11.2016 08:15:54
    Matthias
    Hey Michael,
    ja das funktioniert einwandfrei :) Ich danke dir!
    Grüße Matthias
    Gerne, Danke für die Rückmeldung! owT
    17.11.2016 08:41:21
    Michael

    308 Forumthreads zu ähnlichen Themen

    Autofilter Kopieren und Einfügen
    erich

    Hallo Excelprofis,
    erstmal danke für die vielen hilfen die ich hier bekommen habe.
    nun zu meinen Problem:
    ich habe eine Tabelle in der Taktzeiten erfast werden (Spalte A Beschreibung Spalte C Zeitdaten und in der Spalte F in die Taktbezeichnung hinterlegt z.B. Takt1, Takt2 usw.
    ...
    07.10.2008 19:34:43
    Thread-ID: 1014801
    3 Beiträge
    Anzeige
    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
    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
    Anzeige
    Zeilen mit ähnlichem Inhalt kopieren
    Lauren

    Hallo zusammen,
    sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
    Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
    10.02.2009 14:31:49
    Thread-ID: 1049097
    4 Beiträge
    Tab.1 filtern,Kopieren und in Tab.2 einfügen
    Ünal

    Hallo zusammen,
    ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
    Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
    Da...
    11.03.2009 16:06:48
    Thread-ID: 1059163
    3 Beiträge
    Tab.1 filtern,Kopieren und in Tab.2 einfügen
    Ünal

    Hallo zusammen,
    gestern habe ich eine frage gestellt gehabt wobei mir sehr geholfen war.
    Nun habe ich festgestellt das es doch noch einen Hacken gibt. Und zwar möchte ich das in Tabellenblatt2 nicht immer ab der Zeile 2 angefangen wird sondern immer ab der nächsten freien Zeile geschri...
    12.03.2009 13:40:36
    Thread-ID: 1059470
    3 Beiträge
    Autofilter - nur gefilterte Werte kopieren ?
    Piet

    Hallo zusammen,
    angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
    und in Spalte B diverse Zahlenwerte zu den Produkten.
    Z.B.:
    Produkt Wert
    a 27
    b 13
    b 17
    a...
    08.04.2009 15:38:42
    Thread-ID: 1067762
    3 Beiträge
    Mit VBA Zeilen in neue Register kopieren
    Andreas

    Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
    Im Detail soll dies wie folgt fun...
    08.06.2009 12:29:49
    Thread-ID: 1079883
    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
    2
    5
    6
    2
    1
    3
    2
    2
    2
    2
    1
    20
    1
    5
    6
    9
    2
    1
    8
    4
    7
    2
    14
    11
    10