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

Forumthread: Dateiklone schließen

Dateiklone schließen
26.02.2019 11:57:41
Anja
Hallo zusammen,
nach langem Suchen bin ich noch nicht fündig geworden.
Ich habe eine Arbeitsmappe, die ich in einem neuen Fenster öffne, dadurch entsteht ja sozusagen ein "Dateiklon". Jetzt habe ich die Möglichkeit in zwei unterschiedlichen Tabellenblättern Daten auszutauschen. Nach dieser Prozedur möchte ich aber zu einem weiteren Tabellenblatt wechseln (in der "Mutterdatei") und alle "Klone" schließen.
Das funktioniert zwar soweit, aber, wenn ich den Befehl ausführe und es ist kein "Klon" geöffnet, würde wenn ich nicht auf Abbrechen gehe Excel komplett geschlossen.
Ich brauche also eine Abfragemöglichkeit, ob "Klondateien" geöffnet sind.
Wie würde der Befehl in VBA dazu aussehen?
Danke
Anja
Das funktioniert wenn mind. ein "Dateiklon" geöffnet ist (schließt aber dann auch nur einen Klon, auch wenn mehrere vorhanden sind:
Private Sub CommandButton1_Click()
ActiveWindow.Close
ActiveWorkbook.Worksheets("Tabelle1").Select
ActiveWindow.WindowState = xlMaximized
Range("A1").Select
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiklone schließen
26.02.2019 12:14:40
Rudi
Hallo,
Sub aaa()
Dim i
With ActiveWorkbook
For i = .Windows.Count To 2 Step -1
.Windows(i).Close
Next
End With
Sheets(1).Activate
End Sub

Gruß
Rudi
AW: Dateiklone schließen
26.02.2019 14:11:38
Anja
Vielen Dank Rudi,
hat super funktioniert,
allerdings musste ich das Tabellenblatt näher bezeichnen, sonst gibt mir vba immer wieder Fehlermeldungen.
Private Sub Klone_schließen()
Dim i As Integer
With ActiveWorkbook
For i = .Windows.Count To 2 Step -1
.Windows(i).Close
Next
End With
ActiveWorkbook.Worksheets("Judo-Timer").Activate
ActiveWindow.WindowState = xlMaximized
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige