Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSave aufgerufen wird, das ausgelöst wird, weil in einer anderen Sub ThisWorkbook.Save aufgerufen wurde.
Also folgende drei Methoden gibt es:
Sub InitialeMethode()
ThisWorkbook.Save
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Call Modul2.selectOtherSheet
ThisWorkbook.Saved = True
Cancel = True
End Sub
Sub selectOtherSheet()
ActiveWorkbook.Sheets("data").Select
End Sub
Wenn man die InitialeMethode aufruft, funktioniert das Select in selectOtherSheet nicht!
Wenn man die InitialeMethode auslässt und einfach nur speichert, funktioniert das Select.
Hier könnt ihr euch meine Excel-Datei, die eigentlich nur noch diese paar Zeilen Code enthält, runterladen: https://www.herber.de/bbs/user/55306.xls
Vielleicht fällt jemandem was dazu ein. Ich seh hier im Code nämlich wirklich kein Problem.
Stefan