Office: SpinButton

Hallo,

nochmals ein Problem. Würde gerne mit einem SpinButton immer eine Tabelle vor oder zurück springen.

Habe folgenden Code benutzt:

Code:

Private Sub SpinButton1_SpinDown()
Sheets(ActiveSheet.Index - 1).Activate
End Sub

Private Sub SpinButton1_SpinUp()
Sheets(ActiveSheet.Index + 1).Activate
End Sub

Das klappt auch soweit, nur das sich mein Exel sheet von Zeit zu zeit aufhängt und ich dann nichts mehr ändern kann.

Was ist an dem Code falsch?

PS: Habe mal ein Test-Sheet angehängt

 

Hallo!

Benutze den Code:

Code:

Private Sub SpinButton1_SpinDown()
If ActiveSheet.Index  > 1 Then
Sheets(ActiveSheet.Index - 1).Activate
End If
End Sub

Private Sub SpinButton1_SpinUp()
If ActiveSheet.Index < Sheets.Count Then
Sheets(ActiveSheet.Index + 1).Activate
End If
End Sub

Gruß

 

Hi,

damit habe ich zwar die Fehlermelung bei der ersten und der letzten Tabelle behoben, es kommt jedoch immer noch vor das sich bei mehrmaligem klicken mein Sheet aufhängt und ich nichts mehr machen kann, noch nicht mals das ganze Sheet schließen.Das klappt dann auch nur noch über den Task-Manager

 

Also bei mir kommt bei der Mappe keine Fehlermeldung.

 

Doch.Wenn du jetzt mit dem SpinButton mal ein paar mal hin und her springst, dann beispielsweise ein paar Buchstaben in eine Zelle schreibst, wieder ein paar mal hin und her springst und dann versuchst die Buchstabend da wieder zu löschen wirst du sehen das es nicht mehr klappt und dein Sheet sich aufgehangen hat.Passiert nicht immer ab doch sehr häufig.

weiß aber nicht woran das liegt, weil der Code eigentlich OK ist

 

Hallo!

Nachdem ich 37592x hin- und hergesprungen bin und zwischenzeitlich Buchstaben eingetragen und wieder gelöscht habe:

Keine einzige Fehlermeldung!!!

 

Eine Fehlermeldung kommt auch nicht.Man kann nur nichts mehr ändern.

naja, jetzt hat es bei mir komigerweise auch geklappt.