habe folgenden VBA Code zusammengewürfelt um eine neue Spalte einzufügen,
die für jede ausgefüllte Zeile folgende Excel-Formel haben soll:
=WENNFEHLER(LINKS(A10;FINDEN("/";A10)+1);LINKS(A10;FINDEN(" ";A10)))
Kriege jedoch bei all meinen Versuchen einen Syntaxfehler in VBA für meine Formel.
Makro:
Sub Links_Zeile()
Dim AnzahlZeilen As Integer
Dim i As Integer
AnzahlZeilen = Range("A65536").End(xlUp).Row
ActiveSheet.Columns("B").Insert
For i = 2 To AnzahlZeilen
Cells(2, i).FormulaLocal = "=WENNFEHLER(LINKS(A & i;FINDEN("/";A & i)+1);
LINKS(A & i;FINDEN(" ";A & i)))"
Next
End Sub