Problem: Makro bricht einfach ab
fml
ich habe ein Makro geschrieben, um das JensenAlpha zu berechnen. Als es endlich funktioniert hat war ich mehr als glücklich und heilfroh, da ich absoluter VBA Anfänger bin.
Leider musste ich dann feststellen, dass das Marko nur bis Spalte S funktioniert und dann ohne Fehlermeldung einfach abbricht.
Aktuell stehe ich vor einem Rätsel und hoffe, dass ihr mir bei der Lösung helfen könnt.
Anbei zwei Screenshots vom Aufbau der Excel Datei
http://img853.imageshack.us/img853/9692/26092011t.jpg
http://img31.imageshack.us/img31/9923/260920112.jpg
A1 = Startdatum
A2 = Enddatum
A3 = Bloomberg Ticker
A4 - AX = Datum
B4 - BX = Preis
Hier der Makro Code:
Sub JensenAlpha()
Dim wksQuelle1 As Worksheet 'Excel Datei 1
Dim wksQuelle2 As Worksheet 'Excel Datei 2
Set wksQuelle1 = Workbooks("IPOs 1980-2011 - Daten.xls").Worksheets("VC")
Set wksQuelle2 = Workbooks("STOXX Europe 600.xlsx").Worksheets("Tabelle1")
Dim letztezeile As Long
Dim letztespalte As Long
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
letztezeile = letztezeile + 1
letztespalte = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column
'Zählvariable für die Spalten
Dim i As Integer
i = 1
'Zählvariable für die erste freie Zeile
Dim z As Integer
'Zählvariable für die Zeilen (Datum+Vlookup)
Dim h As Integer
'Zählvariable (startet bei 4, da erster Datenpunkt in Zeile 4 ist)
Dim s As Integer
Do Until i > letztespalte
z = 1
h = 1
s = 4
Do Until Cells(z, i).Value = 0
z = z + 1
Loop
'4 Zeilen von der ersten freien Zeile abziehen
z = z - 4
If Cells(4, i) = "#N/A N/A" Or Cells(4, i) = "#N/A Invalid Security" Then
Cells(letztezeile + h, i) = "Betafaktor"
Cells(letztezeile + h, i + 1) = "n/a"
Else
Dim DatumEnde As Date
DatumEnde = Cells(letztezeile - 26, i)
Dim DatumE As Date
Do While DatumE
Wie ich bereits oben erwähnt habe bin ich absoluter VBA Laie, also seid bitte etwas nachsichtig mit mir ;-)
Recht herzlichen Dank schon einmal für die Mithilfe.