habe folgendes Makroteil zusammengewürfelt und komme mit der Übergabe des Strings? nicht klar(bin erst neu und übe noch ;-) )
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
Dim h As String
e = "gl" & Range("B6") & ".xls" 'gl030204.xls
f = "gl" & Range("C6") & ".xls" 'gl030211.xls
g = "gl" & Range("D6") & ".xls" 'gl030218.xls
h = "gl" & Range("E6") & ".xls" 'gl030218.xls
a = "C:\prob\Februar 2003\e"
b = "C:\prob\Februar 2003\f"
c = "C:\prob\Februar 2003\g"
d = "C:\prob\Februar 2003\h"
ChDir _
"C:\prob\Februar 2003"
Workbooks.Open Filename:=a, UpdateLinks:=3
Workbooks.Open Filename:=b, UpdateLinks:=3
Workbooks.Open Filename:=c, UpdateLinks:=3
Workbooks.Open Filename:=d, UpdateLinks:=3
Windows("FP22.xls").Activate
Range("B10").Select
ActiveCell.FormulaR1C1 = "=[e]gl03!R[-3]C3"
Range("C10").Select
ActiveCell.FormulaR1C1 = "=[f]gl03!R[-3]C3"
Range("D10").Select
ActiveCell.FormulaR1C1 = "=[g]gl03!R[-3]C3"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=[h]gl03!R[-3]C3"
Range("B10:E10").Select
Selection.AutoFill Destination:=Range("B10:E105"), Type:=xlFillDefault
Range("B10:E105").Select
Windows(e).Close
Windows(f).Close
Windows(g).Close
Windows(h).Close
Für e , f , g , h soll jeweils gl030204.xls usw. eingefügt werden.
Kann mir irgendjemand helfen?
Dankeschön.
Heiko