Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in 2400 Dateien nach Begriff suchen und auswerten

in 2400 Dateien nach Begriff suchen und auswerten
27.08.2007 10:37:43
gunter
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

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

Betreff
Datum
Anwender
Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
27.08.2007 11:54:02
Rudi
Hallo,
ungetestet:

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:\test") '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.")
Set rng = wks.Columns(3).Find("Zeitaufwand", lookat:=xlWhole).Offset(0, 2)
With wksZiel
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(0, 0) = oFile.Name
.Offset(0, 1) = rng.Value
End With
End With
On Error GoTo 0
wkb.Close False
Next oFile
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
27.08.2007 13:49:00
gunter
Hallo Rudi,
2 Dinge passieren. Die Aufträge laufen in der Fußzeile durch, das sehe ich. In der neuen Datei jedoch wird in die Zelle A1 lediglich der letzte Dateiname hineingeschrieben. Das kopieren der Stunden und übertragen haut nicht hin.
Wenn du dir wegen des Makro's noch einmal Gedanken machst, dann überlege doch bitte, ob man die Rückfrage ob die bestehende Datei aktualisiert werden soll nicht überspringen kann. Das hatte ich bei meiner Ausführung vergessen, dass die Kundendaten per Abfrage aus einer anderen Datei übernommen werden.
Danke schon mal.
Gruß Gunter

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
27.08.2007 14:07:01
Rudi
Hallo,
1. Sorry, mein Fehler

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") '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:=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


2. Verstehe ich nicht
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
27.08.2007 14:56:51
gunter
Hallo Rudi,
jetzt schreibt der Makro gar nichts mehr rein. Zur Hilfestellung lade ich dir mal eine Datei hoch, damit du sehen kannst, wie das ganze aufgebaut ist.
Zu 2.
Wenn ich eine Verknüpfung zu einer anderen Tabelle habe und eine Datei öffne, dann fragt Excel, ob die Daten aktualisiert werden sollen. Und diese Abfrage muß ich dann halt bei meinen 2400 Dateien ganz oft wegklicken.

Die Datei https://www.herber.de/bbs/user/45422.htm wurde aus Datenschutzgründen gelöscht


Gruß Gunter

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
27.08.2007 15:23:56
Rudi
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

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
27.08.2007 15:32:15
gunter
Hallo Rudi,
hier die Originaldatei.
https://www.herber.de/bbs/user/45427.xls
Die "privaten" Einträge habe ich entfernt. Das wesentliche ist aber zu sehen.
Gruß Gunter

AW: in 2400 Dateien nach Begriff suchen und auswer
28.08.2007 09:40:34
Wuxinese
Hallo Gunter,
Rudi hat vollkommen recht. In Deiner Spalte C steht nicht "Zeitaufwand" sondern "Zeitaufwand ", und die Leertaste hinter dem Zeitaufwand macht den Unterschied!!!
Wenn Du das dementsprechend im Code aenderst, sollte es funktionieren!
Gruss
Rainer

AW: in 2400 Dateien nach Begriff suchen und auswer
28.08.2007 10:41:51
Rudi
Hallo,
hinter Zeitaufwand ist ein Leerzeichen.
Ändere LookAt:=xlWhole in LookAt:=xlPart
dann wird mit und ohne Leerzeichen gefunden.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
28.08.2007 15:10:00
Gunter
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

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
29.08.2007 09:59:15
Rudi
Hallo,
ich kann nur eins sagen: Verbundene Zellen sind Teufelswerk.
Ohne Garantie:

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.Cells.Find("Zeitaufwand", lookat:=xlPart)
If Not rng Is Nothing Then
With wksZiel
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = oFile.Name
.Offset(1, 1) = rng.Offset(0, 1).Value
End With
End With
End If
End If
On Error GoTo 0
wkb.Close False
Next oFile
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: in 2400 Dateien nach Begriff suchen und auswer
29.08.2007 10:19:00
Gunter
Hallo Rudi,
gesegnet sei der Leib, der dich getragen hat!! Vielen Dank für deinen tollen Einsatz
bei der Lösung meines Problemes.
Mit den verbundenen Zellen kann ich dir nur recht geben, das versuche ich unseren
Usern auch immer zu vermitteln.
Vielen DANK
Gruß Gunter

304 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
4
7
2
4
3
3
2
5
4
4
4
1
25
1
3
5
1
15
4
2
11
4
6