Sub dateibearbeitung()
'### Erfrage Dateipfad und arbeite mit ausgewählten Dateien weiter
Dim AppShell As Object
Dim BrowseDir As Variant
Dim pfad As String
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
'#
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Bitte Ordner der relevanten Dateien auswählen.", &H1000, quellpfad)
On Error Resume Next
'#
'Erhebe Verzeichnis
strVerzeichnis = BrowseDir.items().Item().Path & "\"
If strVerzeichnis = "" Then Exit Sub
'#
Dim datfeld(100) As Variant	'Im Beispiel wurde eine Feldlänge von 100 angenommen
'#
'Erhebe relevante Dateien im angegebenen Verzeichnis
Dateiname = Dir(zielpfad & "*.xlsm")  'Im Beispiel werden nur Dateien mit Suffix .xlsm gesucht
a = 1
Do While Dateiname <> ""
    datfeld(a) = Dateiname
     a = a + 1
    Dateiname = Dir
Loop
datzaehler = a - 1
'#
'Einzeldatei wird geöffnet aus Auswahl
For x = 1 To datzaehler
    Dateiname = datfeld(x)
	Workbooks.Open Filename:=strVerzeichnis & Dateiname
	'weiterer Code
Next x
sub Aenderung_Dateistruktur()
'Eingriff in Dateistruktur
'#
'## Gliederung entfernen
Cells.Select
Selection.ClearOutline
'#
'## Filter entfernen
If ActiveSheet.AutoFilterMode = True Then
    Rows(7).Select 			'Schaltet Filter in Zeile (hier 7) aus, wenn True
    Selection.AutoFilter
End If
'#
'## alle Zellen einblenden
Cells.Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
'#
'## bedingte Formatierung entfernen
Cells.FormatConditions.Delete
'#
End Sub