Eigene Formel in Excel Datenreihe einpflegen (mittels VBA?)

[chris2610]

Hallo liebe Mitglieder,

ich bin heute auf folgendes Problem bei der Analyse meiner Daten gestoßen:

Ich besitze eine Datentabelle für Aktienwerte der letzten 40 Jahre (auf Monatsbasis) und müsste für jeden Monat und dessen vorangegangenen Monat die Rendite berechnen.
Formel:((Schlusskurs(t1)/Schlusskurs(t0))-1)*100

Meine Tabelle sieht folgendermaßen aus (beispielhaft)

Spalte 1: Januar         Spalte 2: Leerspalte        Spalte 3: Februar         Spalte 4: Leerspalte         Spalte 5: März

Nun soll die erzielte Rendite von Spalte 3 zu Spalte 1 ermittelt werden und in Spalte 4 abgedruckt werden. Danach die Rendite von Spalte 5 zu Spalte 3 und widerrum das Ergebnis in Spalte 6 usw....

Gibt es für eine solche Anwendung einen Code der beispielsweise mittels VBA eingepflegt werden kann?

Ich habe leider überhaupt keine Erfahrung mit VBA und ohne eine Art Programmierung ist der Aufwand meines Erachtens kaum machbar.

Ich wäre euch für Ratschläge oder Lösungen sehr dankbar!

Schöne Grüße

Chris

[Rabe]

Hi Chris,

Ich habe leider überhaupt keine Erfahrung mit VBA und ohne eine Art Programmierung ist der Aufwand meines Erachtens kaum machbar.

versuche es mal damit:

Option Explicit

Sub Rendite_eintragen()
  ' 
  ' Rendite_eintragen Makro 
  ' 
  Dim loLetzte As Long
  Dim loZeile As Long
  Dim loSpalte As Long
  ' 
  
  loLetzte = Cells(Rows.Count, 1).End(xlUp).Row         'letzte belegte Zeile in A (1) 
  
  Range("D2").FormulaLocal = "=C2/A2*100"
  
  For loSpalte = 6 To 960 Step 2        '=40*12*2; Endwert anpassen 
     For loZeile = 2 To loLetzte
  Range("D2").Copy Cells(loZeile, loSpalte)
  
     Next loZeile
  Next loSpalte
End Sub

[Fennek]

Hallo,

mit der Formel

=verweis(2;1/(a1:a100<>0);a1:a100)

kan man den letzten Wert einer Spalte auslesen. Ohne den letzten Teil erhält man die letzte Zeilennummer.

Mfg