Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech

Forumthread: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech

Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 17:59:08
Georgi
Hallo Experten,
das scheint ja wirklich mal eine harte Nuss zu sein ;-)
Hier der Link zum Ursprungsthread:
https://www.herber.de/forum/archiv/2012to2016/2015353_VBA_activatedeactivate_ping_pong_zwischen_den_Mappen_verhi.html#2015353

Ich bin selbst jeden Tag daran doch noch eine Lösung zu finden, doch so langsam gehen mir die Ideen aus.
Vielleicht hat ja jemand von Euch den goldenen Tipp oder präsentiert gar hier die Lösung.

Viele Grüße
Georgi
Anzeige
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 19:14:26
schauan
... und jetzt fehlen nur noch die Beispieldateien ...
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 20:56:17
Georgi
Hier wie gewünscht nochmal die Daten.
Viele Grüße
Georgi

Hallo zusammen,
ich schreibe mal hier einen kurzen Code, der das Problem aufzeigen sollte.
Erstellen Mappe 1, 5 Tabellenblätter, ohne Makros
Um den Effekt deutlicher aufzuzeigen, auf jedem Blatt in großer Schrift in schwarz "Mappe1, Seite1 (bzw. 2-5)" schreiben.

Erstellen Mappe 2, Kopie von Mappe 1, ändern des Textes auf den Blättern in rot "Mappe2, Seite1 (bzw. 2-5).
VBE "diese Arbeitsmappe"
Private Sub Workbook_ Open()
call start
End Sub

Private Sub Workbook_ DeActivate()
call ende
End Sub

Private Sub Workbook_ Activate()
call start
End Sub

Modul1 anlegen
Sub start()
Application.EnableEvents = true
Application.ExecuteExcel4Makro "Show.Toolbar(""Ribbon"",false)"
ActiveWindow.Windowstate = XLNormal
ThisWorkbook.Sheets("Tabelle1"). Visible = true
...
bis Tabelle5
End Sub

Sub ende()
Application.ExecuteExcel4Makro "Show.Toolbar(""Ribbon"",true)"
ThisWorkbook.Sheets("Tabelle2"). Visible = false
...
bis Tabelle5
End Sub

Mappe1 und Mappe2 öffnen.
Beim Wechsel von einer zur andere Mappe, sollte man das Ping Pong - Spiel sehen.
Meine ganzen Versuche das zu unterbinden, habe ich nicht im Kopf.

Wenn das Spiel unterbunden werden kann, dann Mappe3 erstellen (Kopie von Mappe2).
Da gabs dann erneutes Ping Pong, welches ich nicht in den Griff bekomme.

Vielleicht findet Ihr ja eine Lösung, das wäre echt super.


Viele Grüße
Georgi
Anzeige
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 20:58:05
schauan
... Daten und Dateien sind zweierlei ...
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 21:00:20
schauan
... ich schrieb im alten Thread

- erstelle zwei Musterdateien mit Deinem code, anhand denen man das Problem nachvollziehen kann
--> die Dateien kannst Du eventuell zusammen in einem zip-Archiv hochladen
- beschreibe die Abfolge der Tätigkeiten, bei denen das Problem auftritt, damit man das ohne viel probieren nachstellen kann
Anzeige
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 21:00:46
schauan
... n.o.
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 22:45:17
Georgi
Hallo schauan :-)

sorry, ich kann keine Dateien hoch- oder runterladen, da das bei uns in der Firma nicht erlaubt ist.
Daher habe ich eine Art Anleitung geschrieben.

Vielleicht kann Mr. K. Dateien zur Verfügung stellen, da er sie wohl nach der Anleitung gebaut hat?

Viele Grüße
Georgi
Anzeige
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 23:25:52
schauan
Es gb ja auch ein paar Vorschläge, die aber in Deinem Code nicht enthalten sind
Wie sieht es denn zu Hause aus, da hast Du wohl kein Excel? Falls also nicht, könntes Du ja eine Musterdatei auf Arbeit erstellen und dann per Mail zu Dir schicken und dann hier einstellen ...
Ansonsten wird das hier wohl genau so ein langes herumgeeiere wie im ersten Thread...

Anzeige
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
12.07.2025 00:09:20
Georgi
Hallo schauan,
ja stimmt, zuhause habe ich kein Excel, da nutze ich nur ein Tablet.
Per Mail ist auch eine schöne Idee, nur werden Dateien mit Code von unserem Outlook gesperrt.

Aber man kann doch die Zeilen von mir in sein Excel kopieren?
So viele sind es ja nicht.

Viele Grüße
Georgi
Anzeige
AW: Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
12.07.2025 10:32:45
schauan
...tja, man kann sich ja was einfallen lassen...
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18