Office: (Office 2010) ActiveX Control Buttons

Ein Hallo in die Runde :)

Ich habe folgendes Problem:

Ich habe ein mehrere Sheets, zwischen diesen soll man mit Hilfe von Buttons hin und her springen können. Alle jeweiligen inaktiven Sheets werden ausgeblendet.

Private Sub GoToEintragungen_Click()
Application.ScreenUpdating = False
Call SheetUnprotection

GoToEintragungen.BackColor = 221695
Worksheets("Eintragung").Visible = True
Worksheets("Eintragung").Activate

If settings.Cells(1, 16) = "1" Then
Call SheetProtection
End If

Application.ScreenUpdating = True
End Sub

Im Grunde funktioniert mein Code. Es kommt aber vor, dass er nicht auf das eingetragene Sheet springt, sondern auf ein völlig anderes, obwohl dies gar nicht beim Button Code hinterlegt ist?!.. Statt wie in meinem Code zB auf das Sheet Eintragung, zeigt er ein völlig anderes Sheet an ..

Ich habe zu diesem Thema bisher nichts gefunden, könnt ihr mir vielleicht weiterhelfen?

Danke & Gruss
Bst2k

 

Hi,

manchmal hilft, anstelle Worksheets("Eintragung").Activate dieses zu verwenden:

Code:

Application.Goto reference:=Worksheets("Eintragung").Range("A1")

Bis später,
Karin

 

Danke für die Antwort, hat aber leider auch nicht geholfen :-(

 

Kann man so nichts weiter dazu sagen, wenn man die Mappe nicht kennt und auch nicht weiß, wann genau der Fehler auftritt.

Bis später,
Karin