ich baue gerade ein Spreadsheet zur Datenauswertung.
Im Tabellenblatt "Auswertung" möchte ich Daten aus dem Tabellenblatt "Rohdaten" verrechnen.
Da die Spalten von anderen Tabellenblättern beim Ziehen nicht automatisch ausgefüllt werden, möchte ich die Formeln mit einem Makro in das Auswerte Sheet schreiben.
In meinem Beispiel möchte ich die fixe Spalte B (in "Rohdaten") durch die Spalten B bis AG ersetzen. Über Eingabezellen im Auswerte-Sheet werden bestimmte Datenbereich fürr die Auswertung definiert.
In Variable x hätte ich den jeweiligen Spaltenbuchstaben, aber Einfügen mit den & x & funktioniert nicht.
Hat jemand eine Idee warum das nicht funktioniert?
Danke & LG
Martin
For s = 2 To 33
x = Replace(Cells(1, s).Address(0, 0), "1", "")
Cells(25, s).Select
ActiveCell.FormulaR1C1 = "=MEDIAN(INDIRECT(""Rohdaten!B"" & 1/R3C2*R2C2-24 &"":B"" & 1/R3C2* _
_
R2C2-5))"
Next s