macro verfeinern
24.11.2003 10:26:56
Tom
habe folgendes Modul
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Application.ScreenUpdating = False
h = "FP24.11.2003.xls"
i = "FP25.11.2003.xls"
j = "FP26.11.2003.xls"
k = "FP27.11.2003.xls"
l = "FP28.11.2003.xls"
m = "FP29.11.2003.xls"
n = "FP30.11.2003.xls"
a = "C:\Datenauswertungen\November 2003\FP24.11.2003.xls"
b = "C:\Datenauswertungen\November 2003\FP25.11.2003.xls"
c = "C:\Datenauswertungen\November 2003\FP26.11.2003.xls"
d = "C:\Datenauswertungen\November 2003\FP27.11.2003.xls"
e = "C:\Datenauswertungen\November 2003\FP28.11.2003.xls"
f = "C:\Datenauswertungen\November 2003\FP29.11.2003.xls"
g = "C:\Datenauswertungen\November 2003\FP30.11.2003.xls"
ChDir _
"C:\Datenauswertungen\November 2003"
Workbooks.Open Filename:=e, UpdateLinks:=3
Workbooks.Open Filename:=f, UpdateLinks:=3
Workbooks.Open Filename:=g, UpdateLinks:=3
Workbooks.Open Filename:=c, UpdateLinks:=3
Workbooks.Open Filename:=d, UpdateLinks:=3
Workbooks.Open Filename:=a, UpdateLinks:=3
Workbooks.Open Filename:=b, UpdateLinks:=3
Wie kann ich nun die Sachee so abkürzen , das ich nur noch das Datum je einmal eintragen muß?
Wie z.B.
h = "FP24.11.2003.xls"
a = "C:\Datenauswertungen\November 2003\ h "
.
.
.
Vielen Dank
Tom