Laufzeitfehler 50290 bei jeder zweiten Ausführung

Hallo zusammen.

Ich versuche grad ein Makro zu retten, dass unter 2019 H&B läuft, aber unter 365 Business streikt. Es kommt immer der Laufzeitfehler 50290.
Nachfolgendes Beispiel ist nur der Anfang und stark verallgemeinert. Im Grund wird eine bestimmte Auswahl getroffen, daraufhin werden zur Sicherheit alle speziellen Tabellenblätter ausgeblendet und das ausgewählte eingeblendet.

Bei der ersten Ausführung, wenn alle TB eingeblendet sind, läuft es mit z.B. "b" sauber durch. Beim zweiten Durchlauf, mit dann z.B. "c" kommt der Laufzeitfehler beim Ausblenden des Tabellenblatts "b". Wenn ich dann den Debugger stoppe und "d" auswähle läuft es ohne Fehler und aller außer "d" sind weg.
Beim nächsten Versuch mit z.B. "a" kommt der Laufzeitfehler dann beim Ausblenden des sichtbaren "d". Stoppe ich dann den Debugger und wähle nochmal "a" klappt es wieder.

Anbei das Test-Makro https://www.herber.de/bbs/user/164639.xlsm

Was übersehe ich?

Vielen Dank im Voraus und Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Select Case Target.Value Case "a" tbb_einblenden (Target.Value) Case "b" tbb_einblenden (Target.Value) Case "c" tbb_einblenden (Target.Value) Case "d" tbb_einblenden (Target.Value) End Select

Private Sub Worksheet_Change(ByVal Target As Range) Dim sSheetName$, a& If Target.Address = "$B$2" Then '* zuerst alle Sheets ausblenden For a = 2 To Sheets.Count Sheets(a).Visible = Sheets(a).Name = Target.Value Next a End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Variant With Target If .Address = "$B$2" Then Sheets(.Value).Visible = -1 For Each sh In Array("a", "b", "c", "d") If Sheets(sh).Name > .Value Then Sheets(sh).Visible = 2 Next End If End With End Sub

Hallo zusammen,
schonmal Danke für die beiden Antworten und noch eine kurze Ergänzung. Es werden leider nicht nur diese ausgeblendet. Dies habe ich nur als Beispiel und zum eigenen Test vereinfacht.

Im richtigen Makro sind 10-15 Tabellenblätter, aber 4 davon, werden je nach Auswahl Ein- und ausgeblendet. Ziel ist je nach Auswahl das gewählte einblenden und sicherstellen, dass die anderen 3 ausgeblendet sind. Daher das Ausblenden vor der Auswahl.

Danach erfolgen weitere "Select Case" die je nach Änderungsort im Arbeitsblatt, dann im Angebot bestimmte Zeilen ein-/ausblenden und Berechnungen anstoßen. Komisch ist halt, dass das Makro unter 2019 H&B problemlos läuft und jetzt beim Umstieg auf 365 Probleme macht.

Viele Grüße

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 50290 bei jeder zweiten Ausführung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread