An Eugen "Arbeitsmappe"

Sub UserForm_Initialize()
Load UserForm1
Dim Zelle As String
Dim sFormula As String, sPath As String, sWkb As String, sWks As String, buchst As String
sPath = Range("a2").Value
sWkb = Range("b2").Value
sWks = Range("c2").Value
Zelle = Range("d2").Value
buchst = Range("e2").Value
zahl = Range("f2").Value
sFormula = "=('" & sPath & ":" & "\" & sWkb & "\" & "[" & sWks & "]" & Zelle & "'!" & buchst & zahl & ")"

Range("A4") = sFormula
Range("A4").Value = Range("A4").Value
UserForm1.Show
End Sub

Mit XP, da geht's

gruß

Bernd