VBA Laufzeitfehler 5
31.08.2016 10:26:42
Lisa
ich habe hier im Forum öffters mal was für mich nützliches gefunden,habe aber selbst noch nie was gefragt. Heute aber brauche ich eure Hilfe...
Public Sub Start()
Dim activeWS, pruefen As String
Dim tabellenblatt As Integer
Dim sPfad As String
Dim sDatei As Variant
sPfad = "E:\Testodrner\"
sDatei = Dir(sPfad & "*.xls")
While (sDatei "")
Workbooks.Open Filename:=sPfad & sDatei
tabellenblatt = ActiveWorkbook.Sheets.Count
Sheets(tabellenblatt).Select
activeWS = Mid$(ActiveSheet.Name, 1, 3)
pruefen = "hi "
Do Until activeWS = "Hallo"
If activeWS = "Guten Morgen" Then
Call neu
Exit Do
ElseIf InStr(ActiveSheet.Name, "hi ") Then
Do Until pruefen "hi "
tabellenblatt = tabellenblatt - 1
Sheets(tabellenblatt).Select
pruefen = Mid$(ActiveSheet.Name, 1, 3)
Loop
Call aktualisieren
Exit Do
Else
tabellenblatt = tabellenblatt - 1
Sheets(tabellenblatt).Select
activeWS = Mid$(ActiveSheet.Name, 1, 3)
End If
Loop
Windows("Start.xlsm").Activate
Workbooks(sDatei).Close (True)
sDatei = Dir
Wend
End Sub
Hier ist der Code. Wenn ich ihn laufen lasse, dann kommt immer auf der Stelle -> sDatei=Dir folgende Fehlermeldung:"Laufzeitfehler '5': ungültiges Prozedurablauf oder ungültiges Argument". Kann vllt jemand mit bloßem Auge sehen woran das liegen kann? ich habe zuerst gedacht, es liegt an der Call Funktion, habe dann beide Subs(neu und aktualisieren)halt in die if-Funktion eingefügt und somit call ersätzt, aber die blöde Fehlermeldung kommt immer noch. Ich habe schon alles mögliche ausprobiert, sitze damit schon 3 Tage =(