Thema Datum  Von Nutzer Rating
Antwort
Rot Rätsel - VBA
17.10.2021 17:38:57 Friedrich Bücker
NotSolved
18.10.2021 10:15:00 Gast33067
NotSolved
18.10.2021 12:33:12 Friedrich Bücker
NotSolved
18.10.2021 12:48:02 RPP63
NotSolved
18.10.2021 12:54:51 Friedrich Bücker
NotSolved
18.10.2021 12:59:09 RPP63
NotSolved
18.10.2021 18:02:03 Gast01233
NotSolved
18.10.2021 18:09:33 RPP63
NotSolved
18.10.2021 18:08:56 Gast01233
NotSolved
18.10.2021 18:11:04 RPP63
NotSolved
18.10.2021 18:15:00 Gast01233
NotSolved
18.10.2021 18:22:05 RPP63
NotSolved
18.10.2021 18:23:56 RPP63
NotSolved
18.10.2021 18:24:05 Gast01233
NotSolved
18.10.2021 18:25:12 RPP63
*****
Solved
18.10.2021 18:26:30 Gast01233
NotSolved
18.10.2021 13:03:58 Der Steuerfuzzi
*****
Solved
19.10.2021 00:36:25 Friedrich Bücker
NotSolved
19.10.2021 00:36:32 Friedrich Bücker
NotSolved
19.10.2021 00:36:44 Friedrich Bücker
NotSolved
19.10.2021 00:36:50 Friedrich Bücker
NotSolved
19.10.2021 00:36:55 Friedrich Bücker
NotSolved
19.10.2021 00:37:02 Friedrich Bücker
NotSolved

Ansicht des Beitrags:
Von:
Friedrich Bücker
Datum:
17.10.2021 17:38:57
Views:
204
Rating: Antwort:
  Ja
Thema:
Rätsel - VBA

Liebe VBA Gemeinde, 

ich hoffe es geht euch gut! 

Ich bin im Moment im Rahmen meines Studiums mit VBA konfrontiert. 

In einer Probeklausur habe ich leider eine Frage bei der ich nicht weiter komme. Von den unten genannten Möglichkeiten sind einige Falsch - einige Fehler glaube ich identifiziert zu haben ( \ statt / ). Da eine ähnliche Frage allerdings in vergangenen Klausuren minus Punkte gegeben würde ich mir gerne eure Meinung einholen um die Falschen Codes sicher identifizieren zu können. 

Wenn Ihr mir weiterhelfen könntet wäre ich euch sehr verbunden! 

Liebe Grüße & herzlichen Dank, 

Friedrich 

 

Imagine a dataset in Excel with 50,000 daily returns for one stock in one column.

I would like to compute the Ljung-Box statistic to test if the autocorrelation coefficients of order 1 to 700 are jointly equal to zero. Which code(s) below would allow me to do that?

Each wrong option gives a penalty of 25% of this question mark.

 

Select one or more:

A.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Double

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nc

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr-k, 1)), Range(M.Cells(k + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2

   v(i) = cr / (nr - k)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function

 

B.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Double

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nc-1

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2

   v(i) = cr / (nr - i)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function

 

C.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Integer

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nc

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2

   v(i) = cr / (nr - i)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function

 

 

D.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Double

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nc

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2

   v(i) = cr / (nr - i)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function

 

 

E.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Integer

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nc

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2

   v(i) = cr / (nr - i)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function

 

F.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Double

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nc

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2/ (nr - i)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function

 

G.
Function CorrelN(M, ByVal nc As Integer) As Double 
Dim i As Integer, nr As Long, cr As Double 
Dim v() 
ReDim v(1 To nc) 
nr = M.Columns.Count 
For i = 1 To nc 
cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1))) 
cr = cr ^ 2 
v(i) = cr / (nr - i) 
Next 
CorrelN = nr * (nr + 2) * Application.Sum(v) 
End Function

 

H.

Function CorrelN(M, ByVal nc As Integer) As Double 
Dim i As Integer, nr As Long, cr As Double 
Dim v() 
ReDim v(1 To nc) 
nr = M.Rows.Count 
For i = 1 To nc 
cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1))) 
cr = cr ^ 2 
v(i) = cr \ (nr - i) 
Next 
CorrelN = nr * (nr + 2) * Application.Sum(v) 
End Function

 

I.

Function CorrelN(M, ByVal nc As Integer) As Double

Dim i As Integer, nr As Long, cr As Double

Dim v()

ReDim v(1 To nc)

nr = M.Rows.Count

For i = 1 To nr

   cr = Application.Correl(Range(M.Cells(1, 1), M.Cells(nr - i, 1)), Range(M.Cells(i + 1, 1), M.Cells(nr, 1)))

   cr = cr ^ 2

   v(i) = cr / (nr - i)

Next

CorrelN = nr * (nr + 2) * Application.Sum(v)

End Function


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Rätsel - VBA
17.10.2021 17:38:57 Friedrich Bücker
NotSolved
18.10.2021 10:15:00 Gast33067
NotSolved
18.10.2021 12:33:12 Friedrich Bücker
NotSolved
18.10.2021 12:48:02 RPP63
NotSolved
18.10.2021 12:54:51 Friedrich Bücker
NotSolved
18.10.2021 12:59:09 RPP63
NotSolved
18.10.2021 18:02:03 Gast01233
NotSolved
18.10.2021 18:09:33 RPP63
NotSolved
18.10.2021 18:08:56 Gast01233
NotSolved
18.10.2021 18:11:04 RPP63
NotSolved
18.10.2021 18:15:00 Gast01233
NotSolved
18.10.2021 18:22:05 RPP63
NotSolved
18.10.2021 18:23:56 RPP63
NotSolved
18.10.2021 18:24:05 Gast01233
NotSolved
18.10.2021 18:25:12 RPP63
*****
Solved
18.10.2021 18:26:30 Gast01233
NotSolved
18.10.2021 13:03:58 Der Steuerfuzzi
*****
Solved
19.10.2021 00:36:25 Friedrich Bücker
NotSolved
19.10.2021 00:36:32 Friedrich Bücker
NotSolved
19.10.2021 00:36:44 Friedrich Bücker
NotSolved
19.10.2021 00:36:50 Friedrich Bücker
NotSolved
19.10.2021 00:36:55 Friedrich Bücker
NotSolved
19.10.2021 00:37:02 Friedrich Bücker
NotSolved