Visual Basic Problem in Excel

[STS301]

hi

ich sollte leider ein Programm in Excel in Visual Basic schreiben. Es gibt einen Button der Aus einer Spalte etwas herausnimmt und in einer anderen hinzufügt, nur wenn ich das Programm ausführen will, sagt er mir" Laufzeitfehler: '13', Typen unverträglich"

Code:

Private Sub work1_Click()
Dim i As Integer

[C2] = "=TEIL(A2;FINDEN(" - ";A2);2)"
[C3].Formaula = "=TEIL(A2;FINDEN(" - ";A2);2)"

i = 2
Do While Int(Cells(i, 3)) >= 0
Range(Cells(i, 3), Cells(i + 1, 3)).Select
Selection.FillDown
i = i + 1
Loop
End Sub

er streicht mir dabei die [C2] Zeile an, wenn ich diese jedoch lösche, kreidet er mir die [C3] Zeile im Editor an.

Ich verstehe den Debugger nicht

Wäre trotzdem nett wenn mir wer von euch helfen könnte