vorige/nächste Tabelle aufrufen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: vorige/nächste Tabelle aufrufen
von: johfri
Geschrieben am: 02.03.2005 09:19:58
ich würde gerne mit zwei verschiedenen tasten das vorige/nächste tabellenblatt aufrufen.
kennt jemand den passenden vba code????

Bild

Betrifft: AW: vorige/nächste Tabelle aufrufen
von: bst
Geschrieben am: 02.03.2005 09:24:57
Morgen ???,
Gruß, Bernd
--
Option Explicit

Sub NaechstesBlatt()
   On Error Resume Next
   ActiveSheet.Next.Activate
End Sub


Sub VorherigesBlatt()
   On Error Resume Next
   ActiveSheet.Previous.Activate
End Sub

Bild

Betrifft: AW: vorige/nächste Tabelle aufrufen
von: johfri
Geschrieben am: 02.03.2005 09:36:54
funktioniert einwandfrei!
DDDDDD
AAAAAAA
NNNNNN
KKKKKK
EEEEEE
!!!!!!
Bild

Betrifft: AW: vorige/nächste Tabelle aufrufen
von: UweD
Geschrieben am: 02.03.2005 09:38:17
Hallo
so gehts

Sub vorher()
    If ActiveSheet.Index <> 1 Then
        Sheets(ActiveSheet.Index - 1).Activate
    Else
        MsgBox "Ist bereits das erste Blatt"
    End If
End Sub


Sub nächste()
    If ActiveSheet.Index <> Sheets.Count Then
        Sheets(ActiveSheet.Index + 1).Activate
    Else
        MsgBox "Ist bereits das letze Blatt"
    End If
End Sub


https://www.herber.de/bbs/user/19070.xls
 Bild

Beiträge aus den Excel-Beispielen zum Thema "vorige/nächste Tabelle aufrufen"