Ctrl C, Ctrl V nach Excel

Sub TextBox1_Change()
Dim zeile, Zeilen
Dim Zahl, Zahlen
Dim CalcMem
CalcMem = Application.Calculation
Application.Calculation = xlCalculationManual
Zeilen = Split(TextBox1.Text, vbCr)
For zeile = 1 To UBound(Zeilen) + 1
Zahlen = Split(Zeilen(zeile - 1), ",")
For Zahl = 1 To UBound(Zahlen) + 1
Me.Cells(zeile, Zahl) = CDbl(Replace(Zahlen(Zahl - 1), ".", ","))
Next
Next
'    Application.EnableEvents = False
'    TextBox1.Text = ""
'    Application.EnableEvents = True
Application.Calculation = CalcMem
End Sub