AW: Vielleicht, wenn das keinen Fehler, sondern ...
27.01.2012 21:01:09
fcs
Hallo Thomas,
die Formel soll ja wohl eine externe Anwendung Namens "ARENA.exe" mit den entsprechenden Parametern aufrufen und den Kurs zu einer WKN zurückgeben/abfragen.
Da bleibt dir nicht anderes über, als die Formeln per Makro zu generieren und in die Zellen einzutragen.
Das Makro muss du im VBA-Editor in einem allgemeinen Modul einfügen. Entweder in der Exceldatei mit den Formeln oder in deiner persönlichen Makroarbeitsmappe PERSONAL.XLSB
Gruß
Franz
Sub VWD_Formel_einfuegen()
'Vor der Ausführung des Makros muss wahrscheinlich das ARENA-Tool gestartet sein.!!!!
Dim wks As Worksheet
Dim lngZeile As Long, strWKN As String, StatusCalc As Long
Set wks = Worksheets("Tabelle3") 'Tabelle in die Formeln eingefügt werden sollen. ANPASSEN!!
With Application
StatusCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With
With wks
'Formeln von Zeile 4 bis 8 in Spalte I einfügen
For lngZeile = 4 To 8 'ANPASSEN!!
'WKN aus Spalte C (3) auslesen
strWKN = .Cells(lngZeile, 3).Text
'Formel fur VWD-Tool in Spalte I (9) eintragen
.Cells(lngZeile, 9).Formula = "=ARENA|'VWD-" & strWKN & ".ETR;UP'!'80'?"
Next
End With
wks.Calculate
With Application
.DisplayAlerts = True
.Calculation = StatusCalc
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub