Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Zeilen in neue Excel-Datei kopieren

Forumthread: gefilterte Zeilen in neue Excel-Datei kopieren

gefilterte Zeilen in neue Excel-Datei kopieren
23.11.2018 23:23:09
Oli
Hallo zusammen,
ich beschäftige mich seit paar Wochen mit den nützlichen Funktionen von VBA in Excel. Die Grundlagen habe ich mir durch viel lesen bereits erarbeitet.
An einer Aufgabe scheitere ich jedoch kläglich. Ich habe eine Exceltabelle mit Filterfunktion. Darin sind in Spalte B verschiedene Straßennamen genannt.
Nun sollen alle verschiedenen Straßen (inkl. deren dazugehörigen Zellen A,C,D,E) automatisch in eine neue Exceltabelle kopiert werden (inkl. Formatierungen). Idealerweise hat die neue Datei den Namen des Straßennamen.
Hab schon viele Tage gegoogelt, aber nichts wirklich passendes gefunden?
Ist das in VBA überhaupt möglich (ich denke schon, oder)?
Über eure Ideen/Fragen etc. freue ich mich.
Grüße Oli
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 00:00:24
Oli
Ich habe nun folgende Grundlage gefunden:

Sub Speichern_unter()
'Dateiname wird aus Zelleninhalt generiert und abgespeichert in neuer Datei
Dim Verzeichnis As String
Dim Datei As String
Dim SaveDummy As Variant
Verzeichnis = "C:\Users\Oli\Desktop\"
Datei = "Mieterliste_" & Range("B2") & ".xls"
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy  False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern  _
gedrückt
End Sub


Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel  _
Dateien (*.xls),*.xls*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
Zwei Punkte, die jedoch noch nicht in dem Code stimme:
- es wird immer der Zelleninhalt aus B2 genommen. Wenn ich aber die Straßen filter, könnte die Zelle auch B78 heißen.
- Die Daten werden eins zu eins kopiert, nicht nur die gefilterten Daten. Es sollen aber nur die gefilterten Daten kopiert werden.
Vielleicht kann mir jemand helfen :)
Vielen Dank
Oli
Anzeige
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 07:55:13
Hajo_Zi
Hallo Oli,
benutze den Makrorecorder und kopiere den sichtbaren Bereich, Start, Bearbeiten, Auswählen, Inhalte

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 18:36:33
Oli
Wenn ich den Recorder benutzte, dann klappt das zwar, aber eben nur mit einem Filterergebis (z.B. Amalienstraße). Ich möchte aber alle Straßennamen (ca. 50 verschiedene) in 50 einzelne Dateien kopieren.
AW: Nachfrage
24.11.2018 08:54:53
Gerd
Hallo Oli,
möchtest du nur jeweils A:E der ersten Filterzeile oder des ganzen sichtbaren Filterbereichs kopieren?
Mit oder ohne Überschriften?
Gruß Gerd
Anzeige
AW: Nachfrage
24.11.2018 09:05:08
Hajo_Zi
Halo Gerd,
lasse den Fragesteller entscheiden ob offen.
Es ist heute nicht mehr üblich eine Rückmeldung zu geben und so ist der Beitrag über 6 Tage offen.
Gruß Hajo
AW: Nachfrage
24.11.2018 14:15:18
Gerd
Hallo Hajo!
Das war meine Entscheidung, die du nicht revidieren musst!
Gruß Gerd
Anzeige
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 14:17:40
Gerd
.
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 14:35:50
Hajo_Zi
AW: operandi ignoranti
24.11.2018 14:57:32
Gerd
.
Anzeige
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 14:58:26
Gerd
.
AW: gefilterte Zeilen in neue Excel-Datei kopieren
24.11.2018 15:03:55
Hajo_Zi
wir können das noch ewig machen.
Gruß Hajo
AW: Wenn ich dir vom Administrator
24.11.2018 15:13:37
Gerd
diese Funktion sperren lasse, kannst du nicht mehr so weitermachen.
Alternativ kannst du mich ruhig in "deine Signatur-Plaktierung" aufnehmen.
Anzeige
AW: Wenn ich dir vom Administrator
24.11.2018 15:22:03
Hajo_Zi
Wie kindisch! oW
24.11.2018 20:52:50
Luc:-?
:-?
AW: Wenn ich dir vom Administrator
25.11.2018 08:12:42
Hajo_Zi
Anzeige
AW: Wenn ich dir vom Administrator
28.11.2018 09:52:01
robert

Forumthreads zu verwandten Themen

Datensätze in neues Tabellenblatt
kutzmutz

Hallo liebe Experten,
ich bastele für meinen Vater eine Übersicht über Bestellungen. Es gibt ein Tabellenblatt "Ersatzteile" in dem Teile mit Bestellnummern, Preisen etc. versehen sind. Wird ein Teil benötigt, wird die Zeile grün markiert und der Gesamtpreis der zu bestellenden Teile ans En...
26.08.2008 23:09:00
Thread-ID: 1004943
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
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
gefilterte Daten in neue datei via Makro
Wolfango

Hallo Experten,
gibt es ein Makro, welches mir folgendes ermöglicht?:
Auf Knopfdruck soll eine neue Datei erstell werden, in welcher sich nur die nicht ausgeblendeten (das Ausblenden hat zuvor über den Autofilter stattgefunden) Zeilen einer Tabelle befinden.
Alternativ:
Anstat...
28.05.2009 10:45:49
Thread-ID: 1077887
9 Beiträge
Anzeige
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Werte filtern und "kopieren"
Sören

Hallo Expertenteam!
Ich benötige eure Hilfe. Es gibt ein Tab-.Blatt mit einer riesiegen Matrix aus der Werte in ein anderes Tab.-Blatt sollen. Dafür müssen verschiedene Bedingungen erfüllt werden. Zum einen muss aus Spalte A ein Wert identisch sein und dann müssen aus einer 6stelligen Angab...
05.12.2009 22:55:30
Thread-ID: 1121996
6 Beiträge
Anzeige
Daten filtern, kopieren und inneue Tabelle einfüge
Luan

Hallo
Habe folgendes Problem
Ich möchte Daten aus der Grunddatentabelle filtern, kopieren und in die Tabelle Arbeitsplan einfügen
Dabei soll die Tabelle Arbeitsplan immer überschrieben werden.
Ich muss einzelne sog. Posten filtern und untereinander einfügen, gleichzeitig müssen...
17.06.2010 17:29:17
Thread-ID: 1161439
2 Beiträge
Anzeige
2 Mappen, 2 Tabellen, suchen und kopieren
Bernhard

Hallo zusammen,
ich habe ein Problem. Ich versuche in Datei 1 (ThisFileName), Tabelle 1("NewBOM") einen bestimmten Inhalt einer Spalte zu suchen, und bei jedem gefundenen Eintrag, die gesamt Zeile in Dateie 2(NewFileName) Tabelle 1 ("New BOM") zu kopieren. Mappen heißen unterschiedlich, die...
01.08.2010 08:22:35
Thread-ID: 1169876
8 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 Beiträge
Tabelle filtern mit Formel und kopieren
Sid

Hallo zusammen,
ich habe folgendes Problem.
Ich möchte eine Tabelle mit einer Formel filtern lassen nach einen Kriterium und damit eine neue erstellen lassen. Meine Tabelle ist sehr umfangreich und ich habe daher ein kleines einfaches Beispiel gemacht.
Ich habe übrigens schon alles...
01.12.2010 12:02:57
Thread-ID: 1189564
8 Beiträge
gefilterte Daten kopieren
kiki

Hallo,
ich bin dabei ein Makro zu schreiben, bei dem ich unter anderem gefilterte Daten kopieren muss und komme nicht weiter.
Ich habe eine Beispielmappe erstellt, damit es deutlicher wird. Ich möchte die Werte in der Spalte "Kombination" filtern, jeweils nach E, Sk und PK. Dann sollen...
26.06.2011 09:05:10
Thread-ID: 1219687
8 Beiträge
Daten aus tabelle lesen und in neue Tabelle
artur

Hallo Zusammen,
Vielleicht kann mir einer helfen,
Habe folgendes Problem: Habe eine Liste mit vielen verschiedenen Teilen in die einer Tabelle stehen.Ich möchte jetzt wenn ich mir mehrere Teile auswähle, dass die Teile nacheinander in die neue Tabelle eingefügt werden
27.12.2011 12:04:19
Thread-ID: 1243621
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Gefilterte Zeilen in eine neue Excel-Datei übertragen

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei mit den gefilterten Daten.

  2. Aktiviere die Entwicklertools. Falls sie noch nicht sichtbar sind, gehe zu Datei -> Optionen -> Menüband anpassen und aktiviere die Entwicklertools.

  3. Öffne den VBA-Editor durch Drücken von ALT + F11.

  4. Füge ein neues Modul hinzu:

    • Rechtsklick auf VBAProject (deineDatei.xlsm) -> Einfügen -> Modul.

  5. Kopiere den folgenden Code in das Modul:

    Sub GefilterteDatenSpeichern()
   Dim ws As Worksheet
   Dim rng As Range
   Dim cell As Range
   Dim newWorkbook As Workbook
   Dim streetName As String
   Dim savePath As String

   Set ws = ThisWorkbook.Sheets("DeinTabellenblatt") ' Ändere dies nach Bedarf
   Set rng = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeVisible)

   For Each cell In rng
       streetName = cell.Value
       Set newWorkbook = Workbooks.Add

       ws.Rows(cell.Row).Copy Destination:=newWorkbook.Sheets(1).Rows(1) ' Kopiert die gesamte Zeile

       savePath = "C:\Users\Oli\Desktop\" & streetName & ".xls"
       newWorkbook.SaveAs Filename:=savePath
       newWorkbook.Close SaveChanges:=False
   Next cell
End Sub

  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Führe den Makro aus über Entwicklertools -> Makros, wähle GefilterteDatenSpeichern und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Keine sichtbaren Zellen"

    • Lösung: Stelle sicher, dass du die Tabelle gefiltert hast und dass tatsächlich Daten sichtbar sind.

  • Fehler: "Dateiname ungültig"

    • Lösung: Überprüfe, ob der Straßenname in Zelle B2 ungültige Zeichen (z.B. / , \ , :) enthält.

Alternative Methoden

Eine einfache Methode besteht darin, die gefilterten Daten manuell zu kopieren und in ein neues Tabellenblatt einzufügen. Du kannst auch den Makrorecorder verwenden, um die Befehle aufzuzeichnen, die du für das Kopieren der gefilterten Daten benötigst.

Praktische Beispiele

Angenommen, du hast eine Excel-Tabelle mit folgenden Daten:

A B C D E
ID Straße Ort PLZ Mieter
1 Amalienstraße Berlin 10117 Max
2 Kurfürstenstraße Berlin 10115 Anna
3 Amalienstraße Köln 50667 Peter

Mit dem oben genannten VBA-Skript kannst du alle gefilterten Daten für "Amalienstraße" in eine separate Excel-Datei exportieren.

Tipps für Profis

  • Nutze Fehlerbehandlungsroutinen in VBA, um sicherzustellen, dass deine Makros auch bei unerwarteten Eingaben robust bleiben.
  • Experimentiere mit Variablen für die Pfade, um die Wartbarkeit des Codes zu erhöhen.

FAQ: Häufige Fragen

1. Kann ich auch nur bestimmte Spalten kopieren?
Ja, ändere die Rows(cell.Row).Copy Zeile, um nur die gewünschten Spalten zu kopieren, z.B. ws.Range("A" & cell.Row & ":E" & cell.Row).Copy.

2. Funktioniert das auch in Excel 365?
Ja, das VBA-Skript funktioniert in Excel 365 und älteren Versionen, solange die Entwicklertools aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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