Datum

Titel

25.04.2024 18:41:19

vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile

25.04.2024 18:22:55

Zeilen mit bestimmtem Datum in andere Mappe übertragen

25.04.2024 18:14:45

VBA - Excell - Kopie und "Diebstahl" Schützen

25.04.2024 17:49:39

Bedingte Formatierung

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1000to1004

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Daten filtern und auf neues Blatt kopieren

Forumthread: Daten filtern und auf neues Blatt kopieren
7 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

08.08.2008 09:58:00

TomTom

Hi,
ich habe eine Exceldatei mit zwei Tabellenblättern. Auf dem ersten befinden sich Daten. Auf dem zweiten befindet sich eine Ablage.
Ich möchte nun Daten mit einer bestimmten Kategorie filtern , kopieren und auf des tabellenblatt ABLAGE kopieren.
Als Beispiel: Alle Datensätze, die die in der Spalte TYP = "BMW" drin stehen haben, sollen in das Tabellenblatt "ABLAGE" kopieret werden (Startzelle in Ablage soll C7 sein, nicht A1)
Hier mal eine Beispieldatenbank:
https://www.herber.de/bbs/user/54441.xls
Gruss
Tom

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten filtern und auf neues Blatt kopieren

08.08.2008 10:32:34

Klaus
Sorry, wollte es per Makro

08.08.2008 10:41:00

TomTom
AW: Sorry, wollte es per Makro

08.08.2008 11:05:00

{mskro}
Da kommt eine Fehlermeldung

08.08.2008 11:38:27

TomTom
Probiere es mal so

08.08.2008 12:10:30

Backowe
AW: Da kommt eine Fehlermeldung

08.08.2008 13:03:13

{mskro}
AW: Daten filtern und auf neues Blatt kopieren

08.08.2008 11:46:37

Tom

AW: Daten filtern und auf neues Blatt kopieren

08.08.2008 10:32:34

Klaus

Hi Tom,
-markiere im Blatt "Daten" die Zelle C1,
-clicke im Menü auf "Daten-Filter-Autofilter"
-clicke den kleinen DropDown Pfeil, der in C1 erscheint
-wähle "BMW" aus dieser Liste
-die gefilterten Zeilen markieren, kopieren und in die Ablage an gewünschter Stelle einfügen
Grüße,
Klaus M.vdT.

Sorry, wollte es per Makro

08.08.2008 10:41:00

TomTom

Hi,
sorry, ich hatte vergessen zu erwähnen, dass ich das ganze per Makro machen wollte.
Gruss
Tom

AW: Sorry, wollte es per Makro

08.08.2008 11:05:00

{mskro}

Hallo Tom,
dann nehme den Makrorecorder und zeichne die beschriebenen Schritte von "Klaus M.vdT." einfach auf.
Gruß Manfred

Da kommt eine Fehlermeldung

08.08.2008 11:38:27

TomTom

Hi,
wenn ich dass mit dem Macrorecoder mache, kommt folgendes zustande:
Range("C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="BMW"
Cells.Select
Selection.Copy
Sheets("Ablage").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Wenn ich das Makro dann ausführe , bringt es mir immer eine Fehlermeldung:
"Die Select Methode des Range-Objektes konnte nicht ausgeführt werden:
Range("A1").Select
was mache ich falsch ?
danke Tom

Probiere es mal so

08.08.2008 12:10:30

Backowe

Hi,

VBA-Code:

Sub ZeilenKopieren()

Dim i As Long, j As Long

j = 7

For i = 2 To Sheets("Daten").Cells(Rows.Count, "C").End(xlUp).Row

  If Sheets("Daten").Cells(i, "C") = "BMW" Then

    Range(Cells(i, "A"), Cells(i, "F")).Copy _

      Destination:=Sheets("Ablage").Range("C" & j)

    j = j + 1

  End If

Next

End Sub

Gruss Jürgen

AW: Da kommt eine Fehlermeldung

08.08.2008 13:03:13

{mskro}

Hallo Tom,
um bei deiner Aufzeichnung zu bleiben, versuche es mal so.


Sub Test()
Sheets("Daten").Cells.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="BMW"
Cells.Copy
Sheets("Ablage").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Daten").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
End Sub

Gruß Manfred

AW: Daten filtern und auf neues Blatt kopieren

08.08.2008 11:46:37

Tom

Wenn du das nur der Übersichtlichkeit wegen macht, kannst du auch die Tabelle als Liste ausführen dann filtert er die Werte je nach wunsch, ansonsten war dieser Beitrag sinnlos.
mfg Tom