Hallo Spezies!

Mit folgendem Makro kann ich fehlende Bereiche der Spalte A auffüllen. Leider geht dabei die Formel,

( =ipGetELAttID("DIHKEMD2";"name";"St_Tr=80191";"TimeBase="&$E$2&";Scenario="&$E$3) ) Bezüge variieren!!!

die in dem Puffer steht, verloren. Was muss ich da anpassen? Es handelt sich hierbei um eine Formel, die direkt auf eine Datenbank-Software zugreift.

Sub Auffuellen()
Dim puffer1 As Variant
Dim zaehler As Long, zeile As Long
zeile = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ReDim matrix(zeile, 1) As Variant
matrix() = Range(Cells(1, 1), Cells(zeile, 1))
For zaehler = 1 To zeile

If matrix(zaehler, 1) <> "" Then
puffer1 = matrix(zaehler, 1)
Else
matrix(zaehler, 1) = puffer1
End If

Next zaehler
ActiveWorkbook.ActiveSheet.Range(Cells(1, 1), Cells(zeile, 1)) = matrix()

End Sub





Ich hoffe, es hat jemand eine Idee dazu.

Vielen Dank schon mal...

Gruss

Ines