Das Archiv des Excel-Forums

Dateien laut Liste Schließen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Dateien laut Liste Schließen
von: Ossi

Geschrieben am: 27.09.2003 01:08:12

Hallo Leute,
ich habe ein Problem beim schließen von Dateien die in einer Tabellenliste stehen.
Ich habe eine Starttabelle erstellt in dem ich eine Dateiliste erstellt habe
die ich über ein Button öffne und gleichzeitig den Blattschutz der jeweiligen
Datei aufhebe, mein Problem ist jetzt diese Dateien wieder über ein Button zu schließen und gleichzeitig auch den Blattschutz aktiviere und speicher.
Ich habe hier zwar was gefunden womit ich alle auser die Startdatei selber
schließen kann aber das ist nicht das was ich suche das Problem dabei ist das
es alle Excel Dateien schliest! auch die, die nicht in der Liste stehen.
Die Liste ist in einer Spalte direkt eingegeben.
Paßwort für Blattschutz ist für alle Dateien gleich.
Danke im Voraus
Gruss Ossi
Bild


Betrifft: AW: Dateien laut Liste Schließen
von: Björn B.
Geschrieben am: 27.09.2003 01:18:40

Hallo Ossi,

wie wäre es mit einem Upload einer Musterdatei, dann kann man dir besser helfen.

Gruß
Björn


Bild


Betrifft: AW: Dateien laut Liste Schließen
von: Ossi
Geschrieben am: 27.09.2003 11:20:33

Hallo Björn,
danke erstmal für dein Interesse an meinem Problem.
Ich habe die Datei auf den Server geladen.
Das Paßwort lautet 123 damit der Button aktiviert wird, in Zelle T10 wird das Paßwort zur Abfrage des Textboxes hinterlegt.
In Zelle T11 Ist das Paßwort für Blattschutz
In Zelle T12 wird eingetrage wieviel Dateien ab Zelle S15 geöffnent werden sollen.
https://www.herber.de/bbs/user/1183.xls

Gruß
Ossi


Bild


Betrifft: AW: Dateien laut Liste Schließen
von: Björn B.
Geschrieben am: 27.09.2003 13:41:50

Hallo Ossi,


in der Prozedur CommandButton1_MouseDown musst Du die Zeilen

Dim wkb As Workbook 'Variablenbildung
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then 'Diese Datei nicht schließen
wkb.Close savechanges:=True 'Vor dem Schließen werden die Dateinen abgeschpeichert.
End If
Next wkb

einfach durch die Zeilen

For Datei = 1 To Anzahl
Workbooks(Range("S" & (Datei + 14)).Value).Close savechanges:=True
Next Datei

ersetzen.

Gruß
Björn


Bild


Betrifft: AW: Dateien laut Liste Schließen
von: Ossi
Geschrieben am: 27.09.2003 20:32:39

Hallo Björn,
ich habe dein Vorschlag angewendet aber irgendwie werden die Dateien nicht geschlossen.
Die Variable "Datei" wird zwar hoch gezählt aber die Zeile zum schließen wird
nicht ausgeführt.
Workbooks(Range("S" & (Datei + 14)).Value).Close savechanges:=True
Ich bekomme auch keine Fehlermeldung.

Gruß
Ossi


Bild


Betrifft: AW: Dateien laut Liste Schließen
von: Björn B.
Geschrieben am: 27.09.2003 20:56:15

Hallo Ossi,

sorry, hatte übersehen, dass Du die Deklaration der Variablen Anzahl ziemlich spät in Deinem Code vornimmst. Wenn Du das Makro zum Schließen startest, hat die Variable gar keinen Wert, deshalb musst Du noch ein bischen umstellen:

Verschiebe in Deinem Code die Zeilen

Dim Anzahl As Integer 'Variable zur Vorgabe der Anzahl zu öffnenden Dateien
Anzahl = Range("T12") 'Eingabezelle für die Anzahl der zur öffnenden Dateien

von ihrem ursprünglichen Platz hinter die Zeile

Dim Singleshot As Integer

dann steht die Variable Anzahl sowohl dem Öffnen- als auch dem Schließen-Makro zur Verfügung.

Generell sollten Variablendeklarationen (Dim etc.) besser am Anfang des Code stehen, damit genau solche Fehler, wie hier geschehen, nicht auftreten.

Gruß
Björn


Bild


Betrifft: AW: Dateien laut Liste Schließen
von: Ossi
Geschrieben am: 27.09.2003 21:36:46

Hallo Björn,
danke für deine Hilfe es funktioniert jetzt und danke für den Tip mit der Variablendeklaration, werde es mir für die Zukunft merken.

Gruß
Ossi


Bild


Betrifft: Danke für die Rückmeldung o. T.
von: Björn B.
Geschrieben am: 28.09.2003 01:05:05




 Bild

Excel-Beispiele zum Thema " Dateien laut Liste Schließen"

Alle Dateien im Verzeichnis öffnen download Dateien listen download
400 leere Textdateien anlegen download XL-Dateien in UserForm listen download
XL5/7-Dateien nach XL8 konvertieren download Dateien aus Listbox auslesen und öffnen download
Excel-Dateien eines Ordners listen download Alle Dateien ab einem bestimmten Datum listen download
Alle Dateien eines Verzeichnisses drucken download Textdateien verbinden download
Serie von Dateien in das XL5/7-Format konvertieren download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Dateien einer Ordnerliste in einer Tabelle zusammenstellen download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern download
Textdateien vergleichen und Unterschiede dokumentieren download Löschen von Dateien beim Schließen einer Arbeitsmappe download
Grafikdateien suchen download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download Textdateien auslesen und in Werte in Zellen eintragen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Fragen aus Textdateien in UserForm-Label einlesen download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Alle Dateien löschen, die älter als 30 Tage sind download
Dateien mit Angabe des Dateidatums mit Hyperlink listen download Dateien listen und gekennzeichnete öffnen download
UserForm-TextBoxes-Texte in Textdateien speichern download Tabellenblattinhalte in getrennten Textdateien speichern download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download Bei Doppelklick Textdateien in Editor öffnen download
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen download Aufruf von Textdateien protokollieren download
Textdateien mit einer Zeile in Tabelle einlesen download Alle Textdateien eines Verzeichnisses importieren download
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen download Dateien suchen download
Dateien mit bestimmtem Inhalt suchen download