Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbooks gezielt schliessen

Forumthread: Workbooks gezielt schliessen

Workbooks gezielt schliessen
20.10.2005 16:12:29
Dr.
Hi zusammen,
mit nachfolgendem Code öffne ich sukzessive ausgewählte Dateien, kopiere deren Sheets in ein separates Workbook und möchte diese dann wieder schliessen, aber die Zeile Workbook.Close macht Zicken. Wie lautet da die richtige Syntax?
Danke Euch!

Sub test()
nameziel = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xls", MultiSelect:=True)
If IsArray(nameziel) Then
For i = LBound(nameziel) To UBound(nameziel)
Workbooks.Open nameziel(i)
Sheets.Copy after:=Workbooks("test.xls").Sheets(1)
Workbooks(nameziel(i)).Close
Next i
End If
End Sub


Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbooks gezielt schliessen
20.10.2005 16:24:22
Matthias
Hallo Dr,
das geht nicht, weil in nameziel() der komplette Pfad steht, Workbooks().Close braucht aber den Dateinamen ohne Pfad.
In deinem speziellen Fall genügt ein
ActiveWorkbook.Close,
da die Mappe nach dem Öffnen immer die aktive ist.
Gruß Matthias
AW: Workbooks gezielt schliessen
20.10.2005 16:27:38
Dr.
Hi Matthias,
das hatte ich schon probiert, aber das hat nicht hingehauen. Alternativ komme ich mit
For Each w In Workbooks
If w.Name "test.xls" Then w.Close
Next w
zum Ziel. Trotzdem danke!
Anzeige
AW: Workbooks gezielt schliessen
20.10.2005 16:31:32
Matthias
Hallo Dr,
So müsste es auch gehen:

Sub test()
Dim WB as Workbook
nameziel = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xls", MultiSelect:=True)
If IsArray(nameziel) Then
For i = LBound(nameziel) To UBound(nameziel)
Set WB = Workbooks.Open nameziel(i)
Sheets.Copy after:=Workbooks("test.xls").Sheets(1)
WB.Close
Next i
End If
End Sub

Gruß Matthias
Anzeige
AW: Workbooks gezielt schliessen
20.10.2005 16:45:41
Dr.
Sehr elegant!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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