wechsel z nächsten sheet



Excel-Version: 2000
nach unten

Betrifft: wechsel z nächsten sheet
von: andy
Geschrieben am: 16.07.2002 - 22:49:02

Hi Excel Profis wie kann ich einem Makro sagen wenn es ausgeführt wird aktiviere immer das nächste sheet ?? Danke für eure hilfe !!


nach oben   nach unten

Re: wechsel z nächsten sheet
von: L.Vira
Geschrieben am: 16.07.2002 - 22:53:30

Schreib am Ende des Makros den Index mit savesetting in die Registriy und am Anfang liest du das aus und erhöhst um 1.
Allerdings solltest du da auch eine clevere Fehlerbehandlung einbauen(z.b. Anzahl der Sheets beim Start ggf. nach erneutem Öffnen der Datei)

nach oben   nach unten

Re: wechsel z nächsten sheet
von: L.Vira
Geschrieben am: 17.07.2002 - 00:30:24

Eine etwas sophistische Möglichkeit:

'*********************************************************
'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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "wechsel z nächsten sheet"