Hallo,
ich bin leider ein VBA nicht kenner, aber anlassbezogen habe ich mich damit beschäftigt und nun versuche ich folgendes Problem zu lösen:
Ich habe in einem Ordner1 mehrere Unterordner Unterordner 2,3,4 etc. Darin befinden sich mehrere 100 xls dateien. Diese sind immer gleich aufgebaut. Nun möchte ich Formeln ändern und Formatierungen anpassen. Jede Datei einzeln öffnen ist natürlich nicht sinnvoll. Folgendes habe ich bereits zusammengestellt:
Sub autokorrektur_starten()
Application.DisplayAlerts = False
Dim zaehler1 As Integer
With Application.FileSearch 'diese Zeile macht leider schon Probleme!
.NewSearch
.LookIn = "C:\test3\" 'korrektur erforderilch, kann ich hier auch mehrere Ordner angeben?
.SearchSubFolders = True
.Filename = "*.xls*"
If .Execute() > 0 Then
For zaehler1 = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(zaehler1)
With Workbooks(2).Sheets(1) 'wofür steht (2) bzw (1)?
Call Protokollkorrekturen 'getestet und funktioniert
End With
Call WP_LA_speichern 'Speicherort und Name abhängig von Zelleninhalt, getestet und Funktioniert
Workbooks(2).Close 'Nein die Ausgangsdatei soll nicht gespeichert werden
Next zaehler1
End If
End With
Application.DisplayAlerts = True
End Sub
irgendwie tuts noch nicht was es soll.
Weiters: in diesen Protokollen sind Makros enthalten, diese würde ich gerne herausnehmen. Ich möchte nur noch eine "Mastermakro".xlmx haben. Umwandeln zu xlsx ist leider keine Option (wir haben auch alte Rechner die die Datein sonst nicht mehr öffnen können).
Freue mich auf eure Antworten (die mir bei diesem Projekt schon viel weitergeholfen haben! ;) )
lg
|