3D-Formeln
Thomas
ich habe folgendes Problem: ich möchte auf mehrere Tabellenblätter z.B. in Spalte C die selben Formeln eintragen.
Ganz simpel: z.B. soll die Formel für C1 lauten: "=A1*B1"
Nun habe ich aber nicht nur in der Zeile 1, sondern natürlich in mehreren Zeilen Werte bzw. Formeln, die ich eintragen möchte. Die Anzahl der Zeilen variiert von Blatt zu Blatt.
Da ich mehrere Formeln auf vielen Blättern eintragen möchte, möchte ich dies gerne per VBA über _ einen 3D-Bezug lösen. Z.B.
With Sheets(Array("Tabelle1", "Tabelle2"))
.Range(.[B1], .[B1].End(xlDown)).Offset(0, 1).FormulaR1C1 = "=RC1 * RC2"
End With
Das klappt aber irgendwie nicht, er trägt immer nur in einem Blatt ein. Ich habe schon bemerkt, dass man bei 3D-Bezügen offensichtlich vorher mit dem ungeliebten Select arbeiten muss.
Z.B.
With Sheets(Array("Tabelle1", "Tabelle2"))
Cells(1, 1).Value = "Test"
End With
Geht nicht. Hingegen klappt folgendes:
With Sheets(Array("Tabelle1", "Tabelle2"))
.Select
Cells(1, 1).Select
Selection.Value = "Test"
End With
Wer kennst sich hier aus und kann mir die richtigen Anweisungen nennen?
Beispieldatei hier: https://www.herber.de/bbs/user/75611.xls
Danke im voraus!
Thomas