im folg Code soll der Ausdruck für die Spalten-Nr. $G durch die Variable zy ersetzt werden. (zy wird in einem anderen Makro definiert, welches dann das Makro "kopieren" aufruft.)
Habt Ihr eine Idee wie man dies lösen kann ?
Viele Grüße
Hermann
Option Explicit
Public zy As Integer
Sub kopieren()
Dim MA
Dim MAz&, z&
For z = 2 To MAz - 1
Range("E" & MA(z, 2) & ":E" & MA(z, 3)).FormulaLocal = _
"=ADS!$G2*100/INDIREKT(""ADS!$G""&ZEILE(ADS!$G2)+ $D" & MA(z, 2) & ")-100" ' Formel in Spalte _
_
E
Next
zy = zy + 1
End Sub