in 2400 Dateien nach Begriff suchen und auswerten

gunter · 2007-08-27T10:37:43+00:00

Hallo Zusammen, ich habe einen Ordner mit 2400 Dateien. Das Tabellenblatt, in dem der Begriff "Zeitaufwand" enthalten ist heisst "Rep-Rg.". Der Begriff "Zeitaufwand" steht in Spalte C, die Zeile kann nicht bestimmt werden. Die Stunden stehen in Spalte E in der gleichen Zeile wie der Begriff "Zeitaufwand". Nun möchte ich das alle Dateien nach dem Begriff "Zeitaufwand" durchsucht werden und die gefundenen Stunden z.B. 2,5 in eine separate Datei geschriebenwerden, damit ich diese aufaddieren kann. Ist so etwas möglich? Gruß Gunter

Hallo,
1. Dann heißt das Sheet nicht 'Rep-Rg.' oder 'Zeitaufwand' wird nicht in C:C gefunden.
2.


Sub Zeiten_lesen()
Dim oFS As Object, oFldr As Object, oFile As Object
Dim wkb As Workbook, wks As Worksheet, rng As Range
Dim wksZiel As Worksheet
Application.ScreenUpdating = False
Set oFS = CreateObject("scripting.filesystemobject")
Set oFldr = oFS.getfolder("c:\temp\test") 'anpassen
Set wksZiel = Workbooks.Add(1).Sheets(1)
For Each oFile In oFldr.Files
Set wkb = Workbooks.Open(oFile, 0)
On Error Resume Next
Set wks = wkb.Sheets("Rep-Rg.")
If Not wks Is Nothing Then
Set rng = wks.Columns(3).Find("Zeitaufwand", lookat:=xlWhole).Offset(0, 2)
If Not rng Is Nothing Then
With wksZiel
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = oFile.Name
.Offset(1, 1) = rng.Value
End With
End With
End If
End If
On Error GoTo 0
wkb.Close False
Next oFile
End Sub

Hilfreich wäre eine Originaldatei und kein HTML.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Hallo Rudi,
irgendwas passt noch nicht. Die Dateien laufen in der Taskleiste durch, doch in der Datei wird nichts geschrieben. Damit ich hier keinen Denkfehler mache. Ich habe den VB Code in einer Datei z.B. A.xls abgespeichert. Aus dieser Datei starte ich dann das Makro. Excel macht dann eine neue Datei auf, z.B. Tabelle1. Wie gesagt, die Dateien laufen durch, doch weder in meine Datei A.xls, noch in die Tabelle 1 wird
etwas hineingeschrieben.
Kannst du in der Vorgehensweise einen Fehler erkennen?
Anbei noch mal der komplette Code:


Sub Zeiten_lesen()
Dim oFS As Object, oFldr As Object, oFile As Object
Dim wkb As Workbook, wks As Worksheet, rng As Range
Dim wksZiel As Worksheet
Application.ScreenUpdating = False
Set oFS = CreateObject("scripting.filesystemobject")
Set oFldr = oFS.getfolder("D:\Ott\Test_KD-Rechnungen") 'anpassen
Set wksZiel = Workbooks.Add(1).Sheets(1)
For Each oFile In oFldr.Files
Set wkb = Workbooks.Open(oFile)
On Error Resume Next
Set wks = wkb.Sheets("Rep-Rg.")
If Not wks Is Nothing Then
Set rng = wks.Columns(3).Find("Zeitaufwand", lookat:=xlPart).Offset(0, 2)
If Not rng Is Nothing Then
With wksZiel
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = oFile.Name
.Offset(1, 1) = rng.Value
End With
End With
End If
End If
On Error GoTo 0
wkb.Close False
Next oFile
End Sub

Gruß Gunter

in 2400 Dateien nach Begriff suchen und auswerten

Forumthread: in 2400 Dateien nach Begriff suchen und auswerten

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

in 2400 Dateien nach Begriff suchen und auswerten

Forumthread: in 2400 Dateien nach Begriff suchen und auswerten

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread