ich bin nicht richtig ausgereift mit VBA, habe aber hier ein kleines Makro, dass ich gerne in einer Schleife laufen lassen moechte:
Die Schleife soll gestartet werden (zB als eigenes Makro) und dann ALLE Excel-Dateien innerhalb eines Ordners (zB C:\reports) EINZELN oeffnen und in der jeweils geoeffneten Datei folgendes Makro laufen lassen:
(danach die Datei schliessen , die naechste Datei oeffnen, darin den Code laufen lassen, etc)
Sub LogDateiLesen()
Dim zeile, anz
Open "C:\Log.txt" For Input As 1
While Not EOF(1)
Line Input #1, zeile
If InStr(zeile, "ELEMENT") > 0 And InStr(zeile, "pubid-601311277") > 0 Then anz = anz + 1
Wend
Close
Cells(5, 4) = anz 'Ausgabe in Zelle D5
End Sub
Ich habe allerdings nicht den geringsten Ansatz....
Koennt ihr mir da helfen?
DANKE!!!