'*********************************************************
'Voraussetzung:
'In den Eigenschaften des Dokuments:
'Menü Datei|Eigenschaften|Anpassen *
'wird ein Eintrag gemacht: Name = Sheet
' Typ = Zahl
' Wert = 1
'Das hat den Vorteil, dass das auch beim erneuten Start
'der Datei verfügbar ist, vorausgesetzt, die Datei wurde
'gespeichert.
'Ansonsten besteht natürlich die Möglichkeit, das auch in
'die Registry zu schreiben.
'
'*********************************************************
Dim SheetIndex As Integer
Dim TW As DocumentProperty
Sub Test()
Set TW = ThisWorkbook.CustomDocumentProperties("Sheet")
SheetIndex = TW.Value
If SheetIndex > Sheets.Count Then
TW.Value = 1
SheetIndex = 1
End If
Sheets(SheetIndex).Select
SheetIndex = SheetIndex + 1
TW.Value = SheetIndex
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen