ActiveSheet.Next.Select
29.07.2004 23:05:53
mario
ich komme nicht weiter.Ich habe mir eine Symboleiste gebastelt und mit
drei Schaltflächen und Makros bestückt.
Alles funktioniert bestens nur wenn eine Tabelle ausgeblendet ist
funktioneren die Makros nicht.
Wer hilft mir weiter?
Sub Seitevorwärz()
On Error Resume Next
ActiveSheet.Next.Select
End Sub
Sub Seitezurück()
On Error Resume Next
ActiveSheet.Previous.Select
End Sub
Sub Startseite()
On Error Resume Next
Dim i As Byte
For i = 1 To 1
Sheets(i).Select
Next
End Sub
Vielen Dank schon zum voraus.
Gruss Mario