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"