ich habe eine Excel-Mappe mit 14 Tabellen.
Gerne möchte ich nach dem Speichern und Schliessen beim Wieder_Öffen zur letzten bearbeiteten Tabelle springen.
Geht das?
Danke für eine Antwort.
Markus
Private Sub Workbook_Open()
Sheets(Sheets.Count).Activate
End Sub
Hilfts?Tabelle1.CustomProperties.Add "letzte Tabelle", "Dummy"
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Tabelle1.CustomProperties(1).Value = Sh.Name
End Sub
Private Sub Workbook_Open()
ThisWorkbook.Worksheets(Tabelle1.CustomProperties(1).Value).Activate
End Sub
Gruß RalfPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Tabelle1.CustomProperties(1).Value = Sh.Name
Tabelle1.CustomProperties(2).Value = Target.Address
End Sub
Private Sub Workbook_Open()
'ThisWorkbook.Worksheets(Tabelle1.CustomProperties(1).Value).Activate
lastTab = Tabelle1.CustomProperties(1).Value
lastCell = Tabelle1.CustomProperties(2).Value
Application.Goto Worksheets(lastTab).Range(lastCell)
End Sub
Noch einmal vielen Dank für "CustomProperties" und hitzige GrüsseSub TabCustProp()
Tabelle1.CustomProperties.Add "letzteTabelle", "Dummy"
End Sub
Wie müsste ich ein zweites anlegen?Sub TabCustProp()
Tabelle1.CustomProperties.Add "letzteTabelle", "Dummy"
Tabelle1.CustomProperties.Add "xxx", "yyy"
End Sub
Tabelle1.CustomProperties.Add "letzteTabelle", "Dummy"