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

[Morphie]

Liegt einfach daran, dass beide Zeilen falsch sind ;)

es müsste heißen:

Code:

"=TEIL(A2;FINDEN("" - "";A2);2)"

jedoch hast du dann auch n fehler, aber das ist ein anderes thema ;)

[STS301]

du meist die Gliederung?

jetzt sagt er mir: Laufzeitfehler "1004", Amwendungs- oder objektorientierter Fehler

[Morphie]

Ja, das sagt er zu mir auch ;)
Aber ich konnte dir nur bei der Syntax helfen, mit Makroprogrammierungen kenn ich mich nicht aus.

[Reinhardtinho]

Heißt es nicht "Formula"?

[STS301]

:wall: :wall:

[Reinhardtinho]

:zwinker:

[STS301]

war aber nicht ausschlaggebend, der Fehler ist immer noch vorhanden

[Amateurprofi]

Versuch es mal

entweder mit
[C3].FormulaLocal = "=TEIL(A2,FINDEN("" - "",A2),2)"

oder mit
[C3].Formula = "=Mid(A2,Find("" - "",A2),2)"

[STS301]

bringt sich auch nichts