Office: (Office 2010) Alle Dateien in einem Ordner öffnen und bearbeiten - Schleife funktioniert nicht mehr

Hallo liebe Community,

aus einem mir völlig unverständlichen Grund funktioniert mein Makro nicht mehr, obwohl es bis zur besagten Zeile genau das tut, was es tun soll. Letztes Jahr hatte es noch funktioniert und die Pfade sind auch bis zum Ende der Schleife alle ok.
Der Code lautet folgendermaßen:

Sub PlandatenBW2()

Dim Jahr As String
Dim cDir As String
Dim sPath As String
Dim ProfitCenter As String

Jahr = Format(DateSerial(Year(Now()) + 1, Month(Now()), 1), "YYYY")
sPath = "G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\"
cDir = Dir(sPath & "*.xlsx")

If Dir("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW", vbDirectory) = "" Then MkDir ("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW")


Do While cDir <> ""
Workbooks.Open (sPath & cDir)
ProfitCenter = Range("H2")
ActiveWorkbook.SaveAs "G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW\" & ProfitCenter & ".csv", FileFormat:=6, Local:=True
ActiveWindow.Close SaveChanges:=False

'nächste Datei lesen
cDir = Dir
Loop
End Sub

In der Zeile cDir = Dir zeigt er mir den Laufzeitfehler '5': "Ungültiger Prozeduraufruf oder ungültiges Argument"

Ich versteh es nicht. Wäre sehr verbunden, wenn mir jemand helfen könnte.

Beste Grüße
Avester

 

Hi,

hast du es schon mal versucht, indem du die Variable cDIR anders benannt hast - z.B. strSuche?
Eventuell müsstest du auch ActiveWindow.Close SaveChanges:=False ändern in ActiveWorkbook.Close SaveChanges:=False

Bis später,
Karin

 

Hallo Karin,

zunächst einmal vielen Dank für deine Antwort. Leider haben die Änderungen keine Auswirkung auf mein Problem gezeigt.
Für weitere Vorschläge wäre ich sehr dankbar.

Beste Grüße
Avester

 

Hallo,

versuche mal, die Dir Anweisungen alle durch VBA.Dir zu ersetzen, also z.B. cDir = VBA.Dir(sPath & "*.xlsx")

Klappt es dann?

Gruß

 

Hallo maninweb,

auch dir vielen Dank für deine Idee. Bringt leider auch keine Veränderung.
Kann es denn evtl. sein, dass bei mir irgendwelche Einstellungen im VBA verkehrt sind, dass so ein Fehler auftritt?

Beste Grüße
Avester

 

Hallo,

eigentlich nicht. Hast Du auch andere Prozeduren in dem Modul, wo der Fehler auftritt?

Und, was passiert, wenn Du im VBA-Editor Menü auf Debuggen -> Kompilieren gehst?
Wenn kein Fehler kommt, ist der Menüpunkt danach ausgegraut?

Ansonsten, anonymisierte Datei hier hochladen wäre nicht schlecht.

Gruß

 

Ich glaube, ich habe den Fehler identifiziert, wobei ich das nicht verstehe.
Wenn ich vor der Schleife die If-Zeile rausnehme, die prüfen soll, ob der BW-Ordner schon vorhanden ist und falls nicht, ihn anlegen soll, funktioniert die Schleife auf einmal. Ich verstehe es insofern nicht, als dass die If-Zeile funktioniert und sich zudem außerhalb der Schleife befindet.

If-Zeile:
If Dir("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW", vbDirectory) = "" Then MkDir ("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW")
Das Makro verhält sich bislang wie folgt:

kein BW-Ordner vorhanden und If-Zeile aktiviert = BW-Ordner wird angelegt und Schleife läuft auf beschriebenen Fehler
BW-Ordner vorhanden und If-Zeile aktiviert = kein Fehler, aber Prozedur in Schleife wird nur einmal durchlaufen und Makro endet
BW-Ordner vorhanden und If-Zeile deaktiviert = Makro funktioniert wunderbar

Erkennt jemand den Fehler und wie kann ich es besser machen?

Beste Grüße
Avester

 

Hallo,

mach' mal aus der besagten Anweisung folgendes draus...

If Dir("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW", vbDirectory) = "" Then

MkDir "G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW"

End If

Gruß

 

Jetzt sagt er mir "End If ohne If-Block"

 

Hallo,

folgendes lässt sich problemlos bei mir komplieren...

Code:

Sub PlandatenBW2()
  
  Dim Jahr As String
  Dim cDir As String
  Dim sPath As String
  Dim ProfitCenter As String
  
  Jahr = Format(DateSerial(Year(Now()) + 1, Month(Now()), 1), "YYYY")
  sPath = "G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\"
  cDir = Dir(sPath & "*.xlsx")
  
  If Dir("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW", vbDirectory) = "" Then
    
    MkDir ("G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW")
    
  End If
  
  
  Do While cDir <> ""
  
    Workbooks.Open sPath & cDir
    
    ProfitCenter = Range("H2")
    
    ActiveWorkbook.SaveAs "G:\KV\Controlling\Planungen\Plan" & Jahr & "\zz_Plandateneinspielung\BW\" & ProfitCenter & ".csv", _
    FileFormat:=6, Local:=True
    
    ActiveWindow.Close SaveChanges:=False
    
    cDir = Dir
    
  Loop


End Sub

PS: ich muss jetzt gleich weg.

Gruß

 

Ich hatte alles in eine Zeile gepackt. Nun funktioniert End If, aber der ursprüngliche Fehler besteht fort.
Ich werde die If-Zeile nun ans Ende meines vorgelagerten PlandatenBW1-Makro packen, damit sie meine Schleife nicht stört. Ist zwar irgendwie unbefriedigend, aber Hauptsache es funktioniert.

Vilen Dank nochmal an alle!

Beste Grüße
Avester