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