VBA - Formelupdate intelligente Tabelle
16.03.2018 13:57:20
Basti
ich habe den u.a. Code.
Dieser soll ab Zeile 2 jede Zeile in einer intelligenten Tabelle durchlaufen und in Spalte 7 & 10 eine Formel schreiben. Die Formelwerte stehen in Spalte 5 & 4 (Dateipfad & Dateiname).
Ziel ist es, wenn sich Dateiname oder Dateipfad ändern die Formel zu aktualisieren. Leider ändert sich nichts, wenn das Marko durchgelaufen ist.
Habt ihr evtl. Ideen?
Gruß
Basti
Public Sub FormulaUpdate()
Dim Formula As Object
Dim x As Long
Dim tbl As ListObject
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Set tbl = ActiveSheet.ListObjects("Table1")
For x = 2 To tbl.ListRows.Count
Cells(x, 7).FormulaLocal = "='" & Cells(x, 5) & "[" & Cells(x, 4) & "]" & "hier Suchzelle1"
Cells(x, 10).FormulaLocal = "='" & Cells(x, 5) & "[" & Cells(x, 4) & "]" & "hier Suchzelle2" _
Next x
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub