Problem Workbook_Open
01.04.2016 13:01:27
Peter
Hallo Excel-Spezialisten,
ich habe ein Problem mit der Durchführung von Workbook_Open.
Wenn ich die Datei beim Beenden speicher mit Cursor auf Worksheets("Buchungsbutton") Zelle A1 und Button aktiviert und anschliessend die Datei neu öffne bleibt der Cursor auf A1 und der Button bleibt aktiviert.
Mit Makro cmdButton2_Register_einblenden_deaktivieren sollte der Button deaktiviert werden und mit Makro B23_markieren sollte der Cursor auf B23 gehen. Anschliessend sollten die Tabellenblätter ausgeblendet werden mit Makro Tabellen_ausblenden.
Die Makros befinden sich in zwei verschiedenen Module.
Anbei meine Makros:
Private Sub Worksbook_Open()
Application.WindowState = xlMaximized 'maximize Excel
ActiveWindow.WindowState = xlMaximized 'maximize the workbook in Excel
cmdButton2_Register_einblenden_deaktivieren 'deaktiviert Button "Register einblenden" auf _
Tabelle Buchungsbutton
B23_markieren
Tabellen_ausblenden
End Sub
Sub cmdButton2_Register_einblenden_deaktivieren()
Worksheets("Buchungsbutton").OLEObjects("cmdButton2_Register_einblenden").Object.Enabled = False
End Sub
Sub B23_markieren()
ThisWorkbook.Worksheets("Buchungsbutton").Activate
ActiveSheet.Range("B23").Select
End Sub
Sub Tabellen_ausblenden()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If Not wks.Name = "Buchungsbutton" Then
wks.Visible = xlVeryHidden
End If
Next wks
End Sub
Könnt Ihr mir bitte mitteilen, was hier falsch ist.
Besten Dank
Gruss Peter