Tabelle1 und Tabelle2 nebeneinander anzeigen
23.10.2019 12:29:18
speednetz
Kann mir jemand bei dem folgenden Problem helfen.
Ich habe mit dem Makrorecorder einen Code erstellt, der mir Tabelle1 und Tabelle2 neben einander anzeigt. Dieser läuft auch einband frei.
Dann speichere ich die Datei ( Orginal.xlsm) mit neuem Namen Datei (Mappe1.xlsm) ab.
Nun zu meinem Problem:
Wenn ich die Datei Mappe1 nun starte möchte ich das auch wieder Tabelle1 und Tabelle2 neben einander angezeigt werden.
Dieses ist leider nicht möglich da in dem Code der Dateiname Original steht.
Kann mir jemand helfen und mir den Code so ändern das er in jeder Datei läuft, die wieder geöffnet wird.
Ich hoffe das ich mich einiger maßen verständlich ausgedrückt habe.
Wäre schön, wenn jemand eine Lösung hier für hätte.
Code und Dateien hänge ich an.
Danke schon mal
Speednetz
Code:
Private Sub Workbook_Open()
' 'zwei_Tabellenblätter
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlVertical
Windows("Orginal.xlsm - 1").Activate
Sheets("Tabelle2").Select
Windows("Orginal.xlsm - 2").Activate
End Sub
https://www.herber.de/bbs/user/132683.xlsm
https://www.herber.de/bbs/user/132684.xlsm