Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen aus mehreren XLS in eine neue XLS auslesen

Zeilen aus mehreren XLS in eine neue XLS auslesen
09.06.2009 16:09:00
KH
Hallo zusammen,
gibt es die Möglichkeit aus mehreren XLS-Dateien (und darin enthaltenen Mappen) bestimmte Zeilen in 1 neue XLS-Datei auszulesen? Es sollen alle Zeilen ausgelesen werden, die in der Spalte B eine Zahl zwischen 300 und 500 haben. Ist das möglich?
Ich habe mal 3 XLS-Dateien angehängt. Aus diesen (und weiteren 7) Dateien sollen die Zeilen ausgelesen werden. Wäre toll, wenn mir jemand helfen könnte.
https://www.herber.de/bbs/user/62314.zip
Gruss
KH
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen aus mehreren XLS in eine neue XLS auslesen
09.06.2009 17:08:10
Marc
Hallo,
ich gehe davon aus das die Dateien in einem Pfad liegen die ausgelesen werden sollen.

Sub abc()
Dim a, b, quelle
With Application.FileSearch
.NewSearch
.LookIn = "c:\temp"
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
For a = 1 To .FoundFiles.Count
Set quelle = Workbooks.Open(.FoundFiles(a))
For b = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
On Error Resume Next
If Cells(b, 2).Value > 300 And Cells(b, 2).Value 


Anzeige
AW: Zeilen aus mehreren XLS in eine neue XLS auslesen
09.06.2009 17:14:58
KH
Hallo Marc,
? :-O
wo trage ich Deine Zeilen ein? Hiermit kenne ich mich ja überhaupt nicht aus. Bitte erläutere es mir.
Gruss KH
AW: Zeilen aus mehreren XLS in eine neue XLS auslesen
10.06.2009 11:34:45
KH
Hallo,
ich habe keine VBA-Kenntnisse. Wie, bekomme ich die Routine von Marc zum laufen?
Kann mir bitte jemand helfen?
Gruß
KH

AW: Zeilen aus mehreren XLS in eine neue XLS auslesen
10.06.2009 15:53:49
Marc
Hallo,
Fertige Datei anbei...
Den Code findest du unter:
Extra - Makro - Visual Basic-Editor (oder nur mit: Alt+F11)
Da dann unter: Module - Modul1
Starten kannst du das alles mit:
Extra - Makro - Makros (oder nur mit: Alt+F8)
dann in der Auswahl 'Kopieren' wählen/ausführen
https://www.herber.de/bbs/user/62348.xls
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige