Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MAKRO Auto Korrektur

MAKRO Auto Korrektur
19.06.2007 17:32:49
Diogeness
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MAKRO Auto Korrektur
19.06.2007 19:41:00
Hajo_Zi
Hallo Unbekannter,

Option Explicit
Sub List_Files_in_all_folder()
'   einschl unterordner komplett mit Phad
Dim I As Long
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = "D:\Eigene Dateien\Hajo\"
'       suchen auch in Unterverzeichnis
.SearchSubFolders = False
.Filename = "*.xls"
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(I)
' hier Dein Makro
ActiveWorkbook.Close True
Next I
End If
End With
Application.ScreenUpdating = True
End Sub



Anzeige
AW: MAKRO Auto Korrektur
19.06.2007 20:05:00
Hajo_Zi
Hallo Unbekannter,
Du hast Glück das ich erst mit Herber agefangen haben, ansonsten hättest Du keine Anwort bekommen. Weitere Antworten zu diesem Beitrag gibt es von mir nicht mehr. Da ich gegen Crossposting bin.
Gruß Hajo

AW: MAKRO Auto Korrektur
22.06.2007 11:55:58
Diogeness
Hallo Hajo,
Danke für das Makro. Funktioniert einwandfrei.
Echt super nett von Dir.
Danke und bis bald.
Diogeness

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige