VBA Routine gesucht
19.07.2016 21:28:17
Kulo
ich habe mehrere Tabellenblätter. Diese Tragen den Namen 2016 bis 2039.
in jeder Tabelle befinden sich in der Zeile 75 in den Spalten 2 bis 13 eine Formel.
Diese formel soll nun automatisch um den Eintrag "plus die Zahl aus der gleichen Spalte eine Zeile darüber" ergänz werden.
Es steht jetzt zB. in Spalte 3, Zeile 75 drinnen "=b75+d73". Jetzt soll diese Formel um "-d74" ergänzt werden, in Spalte 4 um "-e74" usw.
Mein Ansatz bisher:
Sub Formel_ergaenzen()
Dim ws As String
Dim j As Integer
Dim Inhalt as String
For i = 2016 To 2039
ws = i
for j = 1 to 12
j = j + 1
Worksheets(ws).Visible = True
Inhalt = FormulaLocal.Worksheets(ws).cells(75 , j)
Worksheets(ws).cells(75 , j).FormulLocal = Inhalt + die zelle in der gleichen Spalte eins darü _
_
ber als Formel
Next j
Next i
End Sub
Ich würde mich sehr freuen.
Vielen Dank im Voraus
Kulo