Thema Datum  Von Nutzer Rating
Antwort
Rot Makro reagiert je nach Ausführung unterschiedlich
21.12.2022 11:44:48 Jens
Solved
21.12.2022 11:58:35 Gast54131
*****
Solved
21.12.2022 12:14:45 Jens
Solved

Ansicht des Beitrags:
Von:
Jens
Datum:
21.12.2022 11:44:48
Views:
86
Rating: Antwort:
 Nein
Thema:
Makro reagiert je nach Ausführung unterschiedlich

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro reagiert je nach Ausführung unterschiedlich
21.12.2022 11:44:48 Jens
Solved
21.12.2022 11:58:35 Gast54131
*****
Solved
21.12.2022 12:14:45 Jens
Solved