Hallo zusammen,
ich hab mir unten stehenden Code zusammengeschustert in Excel 365. Wenn ich den Code unter Excel 2013 laufen lasse, kommt immer Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht" in der fett markierten Zeile
Sub Tab_formatieren()
Dim lRow As Integer, i As Integer, m As Integer, lColumn As Integer, s As Integer
Dim entry As Boolean
Dim dict As Object
Dim zelle As Range
Dim Werte() As String
Dim j As Long
Const TRKz As String = ", "
Dim rngZelle As Range
'Zeilen einfügen
Range("C:D").EntireColumn.Insert
Range("C:D").ColumnWidth = 30
Cells(5, 3).Value = "Derivat"
Cells(5, 4).Value = "Typschlüssel"
'letzte Zeile wird ermittelt
With ActiveSheet
lRow = .Cells(.Rows.count, "A").End(xlUp).Row
lColumn = Cells(1, Columns.count).End(xlToLeft).Column
End With

'Zellen befüllen bis zur letzten Zeile, auslesen bis letzte Spalte
For i = 6 To lRow
Cells(i, 3).Formula2R1C1 = "=TEXTJOIN("", "",TRUE,IF(R[0]C[6]:R[0]C" & lColumn & "=""x"",R1C9:R1C" & lColumn & ",""""))"
Cells(i, 3).Value = Cells(i, 3).Value
Hat irgendjemand einen Tipp, wie ich das Problem lösen kann?
Schöne Grüße
Stefan