nach unten ausfüllen, wenn...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

okay
(nur) in der ersten datumszelle steht folgende formel: =BDH(C$1,"PX_LAST",Input_Stock!$F$2,Input_Stock!$F$3,"Dir=V","Dts=S","Sort=A","Quote=C","QtTyp=Y","Days=A","Per=cd","DtFmt=D","Fill=P","cols=2;rows=389")
bdh ist eine bloombergfunktion (datenbank mit excelplugin), die für den ticker aus C1 (z.B. die Siemens AG) das datum PX_LAST (=schlusskurs) zieht, und zwar für die range von F2 bis F3, z.B. 1.1.2009 bis today()
anhand dieser einzigen formel baut sich die gesamte datumsspalte auf (in den weiteren zellen befinden sich das datum als fixum, keine formel mehr)
entsprechend befindet sich daneben die PX_LAST-Spalte, in der zu jedem Tag der Kurs angezeigt wird
jetzt will ich in der dritten spalte den kurs normalisieren, z.B. zu einem Benchmark wie dem DAX; dazu dient die formel in dem beispielsheet

ich stell die erklärung mal hinten an, da ich nicht glaube, dass uns das weiter bringt
da wohl eine formelbasierte lösung nicht machbar ist, würde ich gerne zum makroansatz zurückkehren
da meine kenntnisse in VBA eher nicht vorhanden sind, möchte ich auf obiges beispiel bezug nehmen: wie genau muss ich die today-funktion anpassen?
in etwa sollte es so etwas machen:


Sub FormelAusfüllen()
Dim lngR As Long, lngCol As Long
lngR = 3
lngCol = 3
Range(Cells(lngR, lngCol), Cells(Cells(lngR, lngCol - 1).End(xlDown).Row, lngCol)).Formula = " _
=Cells(lngR - 1, lngCol) * Cells(lngR, lngCol - 1) / Cells(lngR - 1, lngCol - 1) "
End Sub

ist das verständlich? Also: ab zelle D3 soll die Formel lauten: =D2*C3/C2, in D4 dann D3*C4/C3 usw.
kann mir jemand evtl. auch bisschen mit Erklärung sagen wie ich das anstelle? Muss ich dazu eine Schleife basteln?
mfg, Peter
----------------------------
zur intention des sheets:
ich gebe eine datumrange vor
für diese range will ich für eine zu definierende anzahl an unternehmen aktienkurse und indizes ziehen, in denen sie gelistet sind
dazu suche ich die ticker und gebe diese ein
durch die verlinkte bloombergfunktion zieht er mir die datumsrange in einer spalte und die aktienkurse für das erste unternehmen in der rechts daneben liegenden spalte (das wiederholt sich dann für alle unternehmen und indizes)
in einer 3. spalte wird ein "rebasing" durchgeführt, damit man z.B. den siemenskurs mit dem dax vergleichen kann, da ja ein kurs von 90/Siemensaktie und ein DAX-Stand von 4000 Punkten so nichts aussagt; das geschieht wie folgt: der DAX wird auf 90 gesetzt (erster siemenswert), der zweite wert entspricht dem vortageswert * rendite (auf punktebasis) - so sieht man wie sich der DAX im verhältnis zur siemensaktie entwickelt, wenn beide vom selben startpunkt ausgingen
dann erstelle ich mir 2 name ranges: eine mittels offset/counta, die andere MIT der offset/counta-Funtion: im ergebnis habe ich 2 ranges, die immer gerade die aktuelle gesamte datumsrange und zugehörige preisrange beinhaltet, nicht mehr und nicht weniger
die ranges brauche ich, damit ich damit erstellen grafiken dynamisch sind, d.h. sollte sich die gewünscht datumsrange vergrößeren, vergrößert sich die date und price range und auch die vom graphen erfasste range

Sub formelAusfüllen() Dim lngFirst As Long, lngLast As Long, lngCol As Long Dim Spalten Dim Spalte lngFirst = 3 'Formel ab 3. Zeile lngCol = 4 'Formel in 4. Spalte Spalten = Array(4, 7, 9, 12) 'Spaltennummern, für die das Makro ausgeführt wird lngLast = Cells(Rows.Count, lngCol - 1).End(xlUp).Row 'letzte gefüllte Zeile in Spalte lngCol- _ 1 'Formel in "D3:D & lastCol" eintragen For Each Spalte In Spalten 'vorhandene Formeln löschen, formel in Zeile 3 bleibt erhalten Range(Cells(lngFirst + 1, Spalte), Cells(Rows.Count, Spalte)).ClearContents 'Formeln neu eintragen Range(Cells(lngFirst + 1, Spalte), Cells(lngLast, Spalte)).FormulaR1C1 = Cells(lngFirst, _ Spalte).FormulaR1C1 Next End Sub

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread