An Eugen "Arbeitsmappe"
08.05.2003 00:29:33
Bernd Wies
geht' eventl. so ?
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