Hallo!

Ich habe ein mir nicht begreifliches Problem. Folgende VBA

Sub EinblendenBlatt1()
    Rows("1:5").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "x"
    ActiveSheet.Shapes.Range(Array("US Blatt 1")).Visible = True
    ActiveSheet.Shapes.Range(Array("TF Blatt 1")).Visible = False
    Sheets("Blatt 1 - 1").Visible = True
End Sub
Sub AusblendenBlatt1()
    ActiveSheet.Rows("1:5").EntireRow.Hidden = True
    ActiveSheet.Range("A1").FormulaR1C1 = ""
    ActiveSheet.Shapes.Range("US Blatt 1").Visible = False
    ActiveSheet.Shapes.Range("TF Blatt 1").Visible = True
    Sheets("Blatt 1 - 1").Visible = False
End Sub
Sub EinblendenBlatt2()
    Rows("6:10").Select
    Selection.EntireRow.Hidden = False
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "x"
    ActiveSheet.Shapes.Range(Array("US Blatt 2")).Visible = True
    ActiveSheet.Shapes.Range(Array("TF Blatt 2")).Visible = False
    Sheets("Blatt 2 - 1").Visible = True
    Sheets("Blatt 2 - 2").Visible = True
    End Sub
Sub AusblendenBlatt2()
    ActiveSheet.Rows("6:10").EntireRow.Hidden = True
    ActiveSheet.Range("A6").FormulaR1C1 = ""
    ActiveSheet.Shapes.Range("US Blatt 2").Visible = False
    ActiveSheet.Shapes.Range("TF Blatt 2").Visible = True
    Sheets("Blatt 2 - 1").Visible = False
    Sheets("Blatt 2 - 2").Visible = False
End Sub

Eigentlich läuft alles perfekt. Nur die zwei Register Blatt 2-1 und 2-2 machen mir probleme. Lasse ich die VBA über das Register "Entwicklertools" ablaufen, werden die Zeilen auf der "Übersicht" ausgeblendet und die Register sind nicht mehr sichtbar. Lasse ich dann das Makro "EinblendenBlatt2" laufen wird alles wieder angezeigt. Soweit alles Perfekt.

Damit ich aber nicht immer über Entwicklertool gehen muss habe ich mir ein Textfeld angelegt und mit dem Makro "EinblendenBlatt2" verbunden. Klicke ich nun auf das Textfeld springt die Anzeige auf "Blatt 2 - 1" und bleibt nicht auf dem Register "Übersicht"!

Zum Ausblenden habe ich ein Piktogramm mit dem "Ausblenden-Makro" verbunden.

Bei dem Makros Ein und Ausblenden Blatt1 habe ich es genauso gemacht und hier bleibt nach dem Einblenden die Ansicht auf dem Blatt "Register".

Wie kann es sein, dass, wenn ich das Makro händig starte alles normal läuft und wenn ich es mit einer Textbox verbinde es auf einmal auf ein anderes Register springt. Da dies nicht der Fall ist wenn nur ein Register wieder eingeblendet werden soll, vermutet ich das es irgendwie mit den 2 einzublenden Registern zusammen hängt. 

Ich habe eine Beispiel-Datei zur besseren Verständlichkeit erstellt, finde hier aber leider nichts um Dateien hochzuladen.

Ich hoffe ich konnte mein Problem gut genug beschreiben. Gern kann ich die Beispiel-Datei verschicken (Wäre eine Zip-Datei) da Makro-Dateien beim Email gesperrt sind!

LG Jens