Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

aus vielen excel-tabellen Zellen auslesen

aus vielen excel-tabellen Zellen auslesen
Matthias
Hallo,
wir haben ca. 2000 Excel-Tabellen in einem Ordner, verteilt über Unter- und Unterunterordner. Aus diesen ordnern möchte ich die Zellen D5 bis Dx auslesen, je nachdem, wieviele Namen (Anzahl der Namen ist Anzahl der belegten Zeilen der Spalte 4 ab Zeile 5) darin stehen. Sobald eine freie Zeile kommt, ist die Namensliste zu Ende.
Ich möchte nun Excel-Tab für Excel-Tab öffnen, die entsprechenden namen herauskopieren, diese untereinander in einer neuen Tabelle einfügen (Spalte 1= Excel-tabellenname, Spalte 2 = die ausgelesenen Namen) und die Excel-tabelle wieder schliessen. Und nun die nächste Excel-Tab öffnen usw.
Kann mir jemand zu diesem Prozedere weiterhelfen?
Vielen Dank im voraus.
Matthias

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

Betreff
Benutzer
Anzeige
AW: aus vielen excel-tabellen Zellen auslesen
ypsilon
hi Matthias,
probier mal

Sub SearchFile()
Dim iCounter As Integer
Dim iZaehlerZeile As Integer
Dim iZaehlerNeu
Dim WkbNeu As String
With Application.FileSearch
.FileName = "*.xls"
.LookIn = "c:\Temp" 'Verzeichnis muss logischerweise angepasst werden
.SearchSubFolders = True
.Execute
iZaehlerZeile = 1
For iCounter = 1 To .FoundFiles.Count
Cells(iZaehlerZeile, 1) = .FoundFiles(iCounter)
WkbNeu = .FoundFiles(iCounter)
Workbooks.Open WkbNeu
iZaehlerNeu = 5
Do While ActiveWorkbook.Sheets(1).Cells(iZaehlerNeu, 4) <> ""
Workbooks(1).Sheets(1).Cells(iZaehlerZeile, 2) = ActiveWorkbook.Sheets(1).Cells(iZaehlerNeu, 4)
iZaehlerZeile = iZaehlerZeile + 1
iZaehlerNeu = iZaehlerNeu + 1
Loop
iZaehlerZeile = iZaehlerZeile + 1
ActiveWorkbook.Close SaveChanges:=False
Next iCounter
End With
End Sub

cu Micha
Anzeige
AW: aus vielen excel-tabellen Zellen auslesen
Matthias
Hallo Micha,
hat wunderbar funktioniert. Vielen dank! Ich bin begeistert!!!!
danke und Dir einen schönen Tag!
Matthias
danke für die rückmeldung :-) o.t.
ypsilon
.

417 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige