Hi,
ich möchte gerne eine Serien von Dokumenten immer der selben Bearbeitung durch ein Excel-Makro unterziehen. Ich wähle die Datei derzeit über
datei = Application.GetOpenFilename
aus. Dabei kann man Multiselect auswählen um mehrere Datein auszuwerten.
Wie kann ich es anstellen, dass diese dann nacheinander im Code verarbeitet werden.
Gruß
Sebastian
Bearbeitung durch ein Excel-Makro unterziehen. Ich wähle die
Datei derzeit über
datei = Application.GetOpenFilename
aus. Dabei kann man Multiselect auswählen um mehrere Datein
auszuwerten.
Wie kann ich es anstellen, dass diese dann nacheinander im
Code verarbeitet werden.
Hi Sebastian, so als Ansatz:
Sub tt()
dat = Application.GetOpenFilename("Excel dateien (\*.xls), \*.xls", MultiSelect:=True)
For n = 1 To UBound(dat) ' kann mir hier mal jmd erklären warum es bei 1 begnnt und nicht wie sonst bei 0???
MsgBox dat(n)
Next n
End Sub
Gruß
Reinhard
Hallo Sebastian,
dein Code muß etwa wie folgt aussehen:
Sub DateienBearbeiten()
dateiliste = Application.GetOpenFilename("Excel Dateien (\*.XLS), \*.XLS", , , , True)
If dateiliste = False then exit sub 'Keine Datei gewählt
For Each datei In dateiliste
Workbooks.Open FileName:=datei
GeladeneDatei = ActiveWorkbook.Name
'Anfang Code für Manipulationen in Datei
MsgBox ("Dateiname: " & datei) 'Beispiel, zeigt den Namen der Datei an
'Ende Code für Manipulationen in Datei
Workbooks(GeladeneDatei).Save
Workbooks(GeladeneDatei).Close
Next datei
End Sub
Das „GetOpenFilename“-Commando öffnent den Datei-Öffnen-Dialog direkt mit Vorauswahl für EXCEL-Dateien und Multiselect-Möglichkeit. Alle selektierten Dateien werden in der For …Next Schleife nacheinander geöffnet, der Code für die Änderungen wird abgearbeitet und die Datei wird gespeichert und wieder geschlossen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Frankz,
funktioniert wirklich wunderbar. Vielen Dank, dass erspart mir Stunden der Arbeit. 
)))
Hallo Reinhard,
vielen Dank für die Hilfe.
Gruß
Sebastian