Hallo,
ich schreibe gerade an einer vba funktion, für die ich auf Daten aus einer anderen Exceldatei zugreifen möchte.
Ich habe jetzt versucht mit workbooks.open die Datei zu öffnen und dann mit workboks().worksheets().Range() die daten auszulesen. Das funktioniert aber nicht, weil es die Datei nicht öffnet. Ich hatte es mal, dass zumindest das workboks().worksheets().Range() auf die externe Datei zugegriffen hat, wenn diese offen war (ohne den workbooks.open befehl zu benutzen), aber auch das geht jetzt nicht mehr.
Das ist der code von der stelle:
Function name(OP, UP, GS, WS)
If GS > 0 And GS < 90 Then
Workbooks.Open "H:\Projekte\Daten.xlsx"
X = OP - UP
f = GS * 10 ^ (-1)
a = Worksheets("Werte_f_vbafunktion_k").Range("B" & f)
b = Worksheets("Werte_f_vbafunktion_k").Range("C" & f)
c = Worksheets("Werte_f_vbafunktion_k").Range("D" & f)
D = Worksheets("Werte_f_vbafunktion_k").Range("E" & f)
name = a * X ^ 3 + b * X ^ 2 + c * X + D
end if
end function
Anmerkung: Das f habe ich noch eingebaut, weil die gs immer Zehnerwerte sind und ich so nicht mit select case arbeiten muss, sondern sich die variablen a,b,c,d anhand des gs wertes, die richtige zeile "raussuchen".
Wär voll cool, wenn mir da wer helfen kann
D.
|