Warum funktioniert diese Sub nicht?

Sub funktioniert. Die zweite, die für mich relevant ist, ergibt andauernd einen Fehler.

Sub test_geht()
Cells(1, 1) = -1.97E-14
Cells(2, 1) = -1.97E-14 ^ (1 / 3)
End Sub


Sub test_geht_nicht()
Dim a As Double
a = -1.97E-14
Cells(2, 1) = a ^ (1 / 3)
End Sub

Warum funktioniert das zweite Beispiel nicht?

Es ist doch im Prinzip das gleiche, wie im ersten Fall. Ich verzweifle gerade total!

Kann mir jemand helfen?

Vielen Dank!

Gruß!

Malte