Sub AlleMappenineinemVerzeichnisÖffnen_und_Kopieren()
Dim Dateiname As String
Wohin = Inputbox("Wo liegt der PFAD in dem alle Dateien geöffnet werden müssen?")
Wohergestartet = ActiveWorkbook.Name
' Wechselt ins Verzeichnis
ChDir Wohin
' Stellt Name fest
Dateiname = Dir("I:\*.xls")
' Öffnet in einem Loop alle Dateien im Verzeichnis
Do While Dateiname <> ""
DateinameÖffnen = Wohin + Dateiname
Workbooks.Open Filename:=DateinameÖffnen
NameWomanist = ActiveSheet.Name
MsgBox (NameWomanist)
' Kopieren etc.
Workbooks(Dateiname).Close
' ActiveWorkbook.Close True
' Zurück zum Ausgang
Dateiname = Dir
Loop
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen