Ich habe ein merkwürdiges Problem festgestellt. In meiner Excel habe ich mehrere Tabellenblätter. Mit einem Spin-Button soll zwischen den Tabellenblättern, deren Name mit "#" beginnt, hin-und hergesprungen werden können. In den Tabellenblättern sind Bilder und auch andere Shapes. Wenn ich den Code anwende, passiert es dass die Shapes nicht korrekt angezeigt werden (s. Beispiel Unten). Es werden die Shapes vom ursprünglichen Tabellenblatt angezeigt, obwohl ich schon in ein anderes Tabellenblatt gesprungen bin. Diese Shapes existieren eigentlich nicht, sie werden aber angezeigt. Wenn ich manuell zwischen den Tabellenblättern wechsle, tritt das Phänomen nicht auf. Ich habe schon mit diversen Tricks versucht, das Problem (z.B. alle Shapes unsichtbar und wieder sichtbar machen) abzuschalten, habe aber keine Lösung gefunden.
Code:
Sub SpinButton1_SpinDown()
spin = -1
Call SpinButton
End Sub
Sub SpinButton1_SpinUp()
spin = 1
Call SpinB
End Sub
Sub SpinB()
Dim i As Integer
Dim s As String
i = ActiveSheet.Index
Do Until s = "#"
i = i + spin
If i = 0 Then GoTo ende
s = Sheets(i).Name
s = Left(s, 1)
Loop
schritt1:
If s = "#" Then
Sheets(i).Activate
Else
End If
ende:
Exit Sub
End Sub
Tabelle 1 (Normalansicht)
Tabelle 2 (Normalansicht)
Tabelle 2(wenn man von Tabelle 1 zu Tabelle 2 per Spin Button springt)
Vielen Dank für die Hilfe!
Gruß
Torsten