Supportnet / Forum / Tabellenkalkulation

Hallo Leute, ich bin relativ neu hier und schon das erste große Problem :-) Folgender Sachverhalt: Auf dem Laufwerk D:\Reports\Actual befinden sich ca. 50 Excel-Files, die alle gleich aufgebaut sind. Jedoch habe ich nun in diesen 50 Files in einem Tabellenblatt einen Formelfehler entdeckt. Diesen würde ich jetzt gerne mit Hilfe eines Makros korrigieren. Das Makro für die Fehlerkorrektur habe ich aufgezeichnet. Aber wie sage ich es dem Makro, dass er alle 50 Files in diesem Laufwerk öffnen, die Korrektur machen und danach wieder speichern soll und zum nächsten gehen soll ? Wer kann mir da bite helfen ? Danke Diogeness

hi Diogeness :-)

ein beispiel :-)

gruss nighty

Sub makro01()
Call EventsOff
Dim Mappen As Integer
With Application.FileSearch
.NewSearch
Rem pfad anpassen
.LookIn = "D:\temp"
.Filename = "*.xls"
If .Execute() > 0 Then
For Mappen = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Mappen))
Workbooks.Open Filename:=.FoundFiles(Mappen)
Rem hier deine korrektur einsetzen ,die mappe ist nun geöffnet und ansprechbar mit Workbooks(DateiName)
Workbooks(DateiName).Save
Workbooks(DateiName).Close
Next Mappen
End If
End With
Call EventsOn
End Sub

Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

hi all :-)

DateiName sollte noch als string deklariert werden ,fuer die lernbegierigen :-)

gruss nighty

Hallo nighty,

eigenartigen Namen gewählt.
Für Variable für den Dateinamen könnte ich mir den Namen DateiName schon vorstellen und den würde ich dann auch as String definieren.

Gruß Hajo

hi hajo :-)

schoen von dir zu hoeren :-)
ich bin nicht so firn wie du, ich vergess staendig immer etwas :-(
ich bemueh mich aber :-))
hatte option explicit vergessen gehabt :-(

gruss nighty

Hallo Nighty,

auch dein makro funktioniert einwandfrei.

Danke nochmal.

Bis bald.

Diogeness

• Autokorrektur