"Klondatei" ansprechen
12.03.2019 16:37:21
Anja
ich habe ein Excel-Programm ersstellt, um bei einem Turnier die Zeit/Wertungen usw. per Stoppuhr zu nehmen und die Daten in die Kampflisten zu übertragen. Zur Bearbeitung der Kampflisten öffne ich mehrere Tabellenblätter.
Mit folgendem Befehl kann ich eine Klondatei hinzufügen und in beiden Dateien nun unterschiedliche Tabellenblätter öffnen, nebeneinander anordnen und bearbeiten:
Private Sub CommandButtoWaageU12_Click()
ActiveWindow.NewWindow
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
Sheets("Waage Liga U12-Vereine").Select
End Sub
Danach möchte ich bis auf zwei Dateien alle anderen schließen.Das funktioniert so:
With ActiveWorkbook
For j = .Windows.Count To 3 Step -1
.Windows(j).Close
Next
End With
Die erste Datei brauche ich nun, um das Programm zu steuern. Die zweite Datei brauche ich für die Bildschirmanzeige für die Zuschauer. Diesen Bildschirm muss ich allerdings dann entsprechend einrichten. Das soll per Knopfdruck automatisch passieren.
Jetzt die Frage:
Wie spreche ich diese zweite "Klondatei" in vba an?
Wenn ein zweites Fenster geöffnet wird, erscheint oben in der Dateibeschreibung automatisch die Ergänzungen Datei xy - 1 - bzw. Datei xy - 2 -.
...sowas in der Richtung wie Excel.Windows.2 also allgemein gültig, auch wenn die Datei umbenannt wird. Zur Not auch den aktuellen Dateinamen, muss ich dann nur dran denken immer wieder in vba umzubenennen, wenn ich Zwischenversionen des Programms unter einem anderen Namen abspeichere...
Vielen Dank schon mal
Gruß Anja