FormulaR1C1 Aufbau und Funktionsweise
10.05.2016 09:40:40
Nicolai
durch den Betreff erkennbar habe ich Fragen zu FormulaR1C1.
Ziel soll sein, von einem bestehenden Auftrag eine produzierte (Teil-)Menge abzuziehen und diese dann mit Bestellnummer und Lieferdatum auf ein neues Blatt zu kopieren.
Die drei Informationen befinden sich in einer 2x2 Matrix geordnet nach den zu liefernden Kalenderwochen. Hierbei befindet sich die Mengeninformation in der ersten Spalte.
Bei Beenden einer Produktion möchte ich in die erste Zelle der folgenden Spalte die produzierte Menge eintragen und den zugehörigen Auftrag auswählen. In der darunterliegenden Zelle soll nun die Formel "=Summe(Zu Beginn ausgewählte Zelle : Zelle der ersten Zeile (in Bezug auf die Zelle in welche die Formel eingetragen wird)" eingetragen werden.
Z.B. =Summe(A3:B1) oder =Summe(A5:B1) etc.
So ist das Makro flexibel und kann jeweils auf verschiedene KW und Aufträge derselben KW angewendet werden.
Mein Code beginnt mit diesen Zeilen:
Dim selr As Integer
Dim selc As Integer
selr = ActiveCell.Row
selc = ActiveCell.Column
Cells(2, selc + 1).Select
ActiveCell.FormulaR1C1 = "=SUM(R[" + Format(selr - 2) + "]C[-1]:R[-1]C)"
Dies liefert mir diese Formel:
=SUMME(S1:T3)
Wobei mir dieser Code:
ActiveCell.FormulaR1C1 = "=SUM(R[" + Format(selr - 2) + "]C[1]:R[-1]C)"
diese Formel liefert:
=SUMME(T1:U3)
Warum ergibt sich diese gravierende Änderung an beiden Termen, obwohl ich nur einen verändere?
Wie muss ich die Variable selr einbinden?
Beste Grüße
Nicolai