Function
Durchlauf(datei
As
Object
)
Workbooks.Open (file)
Columns(
"E:E"
).
Select
Selection.Delete Shift:=xlToLeft
Dim
zellenbereich
As
Range
Set
zellenbereich = Worksheets(1).Range(
"A:E"
)
zellenbereich.
Select
[...]
End
Function
For
monatstag_int = 1
To
31
Dim
myObj
As
Object
Set
myObj = CreateObject(
"Scripting.FileSystemObject"
)
Dim
verzeichnisRohdaten
As
Object
Set
verzeichnisRohdaten = myObj.GetFolder(verzeichnisDerRohdaten)
For
Each
file
In
verzeichnisRohdaten.Files
Dim
dateiname
As
String
dateiname = file.Name
Dim
tagesKennung_string
As
String
tagesKennung_string = Mid(dateiname, 7, 2)
Dim
tagesKennung_int
As
Integer
tagesKennung_int =
CInt
(tagesKennung_string)
Dim
tagesKennung_stringOhneNull
As
Integer
tagesKennung_stringOhneNull =
CStr
(tagesKennung_int)
If
tagesKennung_int = monatstag_int
Then
Durchlauf (datei = file)
End
If