aufgrund meiner Fehlerhaften Formel muss ich diese in sehr vielen Arbeitsmappen reinzuschreiben.
Um diese nicht alle per Hand zu ändern versuche ich gerade ein passendes Makro zu schreiben.
Anbei mein Versuch:
Sub OpenFiles2()
Dim FILE_PATH As String
Dim MyFile As String
Dim objWorkbook As Workbook
Application.ScreenUpdating = False
FILE_PATH = ThisWorkbook.Path & "\"
MyFile = Dir$(FILE_PATH & "*.xlsm")
Do Until MyFile = ""
Set objWorkbook = Workbooks.Open(Filename:=FILE_PATH & MyFile)
objWorkbook.tabelle7.Range("D2").Formula = "=TRIM(MID(R[-11]C[3],SEARCH(""."",R[-11]C[3])-2,9))"
Call objWorkbook.Close(SaveChanges:=True)
MyFile = Dir$
Loop
Application.ScreenUpdating = True
End Sub
Jedoch erhalte ich derzeit in der ZeileobjWorkbook.tabelle7.Range("D2").Formula = "=TRIM(MID(R[-11]C[3],SEARCH(""."",R[-11]C[3])-2,9))"
die Fehlermeldung " Objekt unterstützt diese Eigenschaft nicht "
Mein Ziel ist es alle in dem Ordner befindlichen Arbeitsmappen zu öffnen und in der Tabelle7 Zelle d2 diese Formel auszutauschen =GLÄTTEN(TEIL(G2;SUCHEN(".";G2)-2;9))
dann zu speichern und wieder zu schließen.
Kann mir dabei jemand helfen? Ich bekomme es leider allein nicht hin.
MFG Thomas