Und zwar habe ich folgenden Code:
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.FullName <> ThisWorkbook.FullName Then
Select Case Left(wkb.FullName, InStrRev(wkb.FullName, "\"))
Case Is = ThisWorkbook.path & "\"
If Not wkb.Saved Then wkb.Save
wkb.Close
Case Is = ThisWorkbook.path & "\Transfer\"
If Not wkb.Saved Then wkb.Save
wkb.Close
End Select
End If
Dieser funktioniert auch ab Excel 2000 wunderbar.
Bei Excel 97 habe ich das Problem, dass bei der Zeile
InStrRev(wkb.FullName, "\"))
ein Fehler kommt.
Es wird das Objekt: InStrRev markiert.
Was muss ich tun um den Fehler zu vermeiden?
Danke Euch schonmal
Steffen Schmerler