Bedingung innerhalb einer "Do While"-Schleife

Hallo, Forum,
ich möchte gerne zum Jahreswechsel meine Mitabeitertabellen mit einem Makro bearbeiten. Hierfür gebe ich ein das betreffende Verzeichnis an, in dem sich aber auch die Konsolidierungstabelle befindet. Es gelingt mir mit meinem Modul nicht, alle Tabellen im Verzeichnis ohne die Konsolidierungstabelle zu bearbeiten. Wahrscheinlich ein Klacks für die Profis, ich bekomme bei dem unten stehenden Code den Laufzeitfehler 9, Index ausserhalb des gültigen Bereichs
.


Sub OpenWkb()
Dim sFile As String, sPath As String
Application.ScreenUpdating = False
sPath = InputBox( _
prompt:="Pfad:", Default:="c:\eigene dateien")
If Right(sPath, 1)  "/" Then
sPath = sPath & "\"
End If
sFile = Dir(sPath & "*.xls")
Do While sFile  ""
If Not Workbooks(sFile).Name = "Konsolidierung_Mitarbeiter.xls" Then _
Workbooks.Open sPath & sFile
Application.Run "VBATestmappe.xlsm!NeuesJahr"
ActiveWorkbook.Close savechanges:=True
sFile = Dir()
Loop
Application.ScreenUpdating = True
End Sub

Für Hilfe wäre ich sehr dankbar!
Freundliche Grüße
Matthias

Hallo, Luc:-?, Gerd und Sepp,
erstmal ganz herzlichen Dank für Eure Antworten, das ging ja schneller als ich dachte! Nachdem Eure Antworten noch in der Nacht kamen, finde ich meine Annahme bestätigt, dass die Programmier-und Computerbegeisterten dazu verdammt sind, Nachts ihre Arbeit zu verrichten, um den häuslichen Frieden nicht zu gefährden, oder seid Ihr alles Nachteulen? ;-))
@Sepp: ist die savechanges-angabe überflüssig, wenn man das Workbook der Variable objwb zuweist und dann schließt?
@ Luc:-?: wenn die Konsolidierungstabelle aus dem Verzeichnis genommen wird, läufts ohne Probleme durch, nur ist die Tabelle mit Passwort geschütz, deswegen kam ein Laufzeitfehler auch dann, wenn ich die Bedingung mit Namensprüfung nach der Öffnen-Anweisung eingefügt habe. Ansonsten bin ich wie viele Amateure ein Copy and Past-Spezialist, wo leider sicherlich Fragmente von nicht benötigtem oder falschem Code übrig bleiben ( ich dachte, dass sFile = Dir() in Verbindung mit Loop die nächste Tabelle aufruft, habs noch nicht ohne probiert!)
@ Gerd: danke, da hab ich wieder was dazugelernt mit dem Öffnen,des WBk und dann erst die Name-Eigenschaft zu verändern,
ganz herzlichen Dank nochmal, ich werds gleich mal austesten und poste nochmal das Ergebnis!
Erfolgreiches und gesundes Neues Jahr wünscht
Matthias

Bedingung innerhalb einer "Do While"-Schleife

Forumthread: Bedingung innerhalb einer "Do While"-Schleife

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial