Hallo, gibt es eine Möglichkeit alle Excel-Dateien eines Ordners der Reihe nach zu öffnen, jeweils die Summe der Spalte C zu überprüfen und bei der Summe 0 die Datei in den Unterordner "Leer" zu verschieben? Wenn die Summe ungleich 0 ist, soll die Datei einfach wieder geschlossen werden.
Vielen Dank für die Anregungen.
Gustav
Sub GetSumAndMove() Dim strPath As String, strMove As String, strSheet As String, strRange AsString Dim objFS As FileSearch, objFSO AsObject Dim lngIndex As Long, varResult AsVariant
'#### Diese Angaben anpassen #######################
Hallo Sepp,
die Spalte C liegt in dem Tabellenblatt "Gesamtübersicht".
Die Dateien haben nie den gleichen Namen. Sie bestehen aber immer aus einem Tabellenblatt mit den Namen "Gesamtübersicht"
Dateien liegen in "C:\Temp\Innenauftrag" und sollen nach "C:\Temp\Innenauftrag\leer".
Wenn das klappt wärs echt super...
Besten Dank vorab Gustav
AW: Datein eines Ordners öffnen und prüfen?
04.01.2006 10:04:54
Josef
Hallo Gustav!
Hast du meinen Code Probiert?
Die Pfade und den Blattnamen musst du anpassen!
Ich habe die Stellen genau gekennzeichnet!
Mensch Sepp,
das läuft astrein. Am Ende gibt er zwar eine Fehlermeldung aus,
aber das Makro leistet ganze Arbeit.
Da hast Du mir wirklich weitergeholfen.
Vielen Dank und ein tolles Jahr 2006!
Gustav
AW: Datein eines Ordners öffnen und prüfen?
04.01.2006 12:27:38
Josef
Hallo Gustav!
Die Fehlermeldung kommt z.B. wenn du Verknüpfungen zu "*.xls" Dateien in dem Ordner stehen hast!
Das lässt sich auch abfangen!
' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
Sub GetSumAndMove() Dim strPath As String, strMove As String, strSheet As String, strRange AsString Dim objFS As FileSearch, objFSO AsObject Dim lngIndex As Long, varResult AsVariant
'#### Diese Angaben anpassen #######################