AW: Dann muß ich passen...
10.09.2003 11:54:50
Marek Westendorf
Hi,
ich muß zunächstz feststellen, daß ich einen Fehler gemacht habe. Um Mcovar benutzen zu können, müssen sowohl Analyse-Funktionen als auch Analyse-Funktionen-VBA als Add-Ins eingebunden sein. Ich hatte Analyse-Funktionen-VBA vergessen einzubinden.
Hier nun der Code:
Sub Kovarianzmatrix()
' Daten stehen im Sheet "CalculationsData"
' Die Kovarianzmatrix wird im Sheet "CovarianceMatrix" erzeugt
Dim inpRng As Range
' Man hat entweder die Möglichkeit die Variable für die Ausgabe als
' String anzulegen, wobei dann ein neues Sheet mit dem jeweiligen
' Namen angelegt wird und die Daten in die erste Zeile geschrieben werden.
' Oder man gibt einen
' Bereich an, welcher sich allerdings (leider) auf derselben Seite befinden
' muß. Ich habe hier die Möglichkeit mit der Erstellung einer neuen Seite gewählt!
' Die Seite darf noch nicht vorhanden sein...
Dim outStr As String
' optional Dim outRng As Range
Dim groupedStr As String
Dim labelsBol As Boolean
Sheets("CalculationsData").Select
' Parameter für den Bereich der Daten
Set inpRng = Range(Cells(1, 2), Cells(121, 13))
'optional Set outRng = Range(cells(123, 1), cells(123, 13))
outStr = "CovarianceMatrix"
' Paramter für die Anordnung der Daten, dabei steht C für columns , R für rows
groupedStr = "C"
' Paramter, ob Überschriften vorhanden sind oder nicht
labelsBol = True
Call Mcovar(inpRng, outStr, groupedStr, labelsBol)
End Sub