Formel mit Variablen angeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
die Funktion CELLS gibts in Excelformeln nicht!
in Excel gibtr man die Zelladressen direkt ohne eine Funktion an.
zur Auswahl steht lediglich, ob die Zelladressen im A1-Format mit Spaltenbuchstabe und Zeilennummer angegeben werden, oder im Z1S1-Format, wo auch die Spalten Als Nummer angegeben werden.
also entweder so:


Zelle.Formula = "=" & Cells(Nr, Col_K_H ).Address & "-" & Cells(Nr, Col_K_R).Address

oder so:


=Zelle.FormulaR1C1 = "=R" & Nr & "C" & Col_K_H & "-R" & Nr & "C" & Col_K_R

sollte Col_K_H und Col_K_R Stringvariablen sein, die den Spaltenbuchstaben enthalten, würde auch das gehen:


Zelle.Formula = Col_K_H & Nr & "-" & Col_K_R & Nr

mein persönlicher Favorit wäre aber das hier


FO = "=xxx-yyy"
FO = Replace(FO, "xxx", Cells(Nr, Col_K_H).Address)
FO = Replace(FO, "yyy", Cells(Nr, Col_K_R).Address)
Zelle.Formula = FO

gerade bei Längeren Formeln ist die Methode mit dem Dummy-Text und dem Austausch mit dem Variablenwert deutlich übersichtlicher als das zuammenstoppeln von Teiltexten.
Gruß Daniel

Hi
wenn in der Formel die Zeilennummer derjenigen Zelle verwendet wird, in welche die Formel geschrieben wird, dann solltest du die R1C1-Schreibweise nutzen mit der Möglichkeit relative Zellbezüge auch relativ beschreiben zu können, dh nicht mit der absolten Zeilennummer, sondern mit dem Versatzwert.
Vorteil des Versatzwertes ist, dass dieser unabhängig von der Zielzelle und damit immer konstant ist.
bei gleicher Zeile ist der Versatzwert 0, daher wird dann aus deiner Formel:


Zelle.FormulaR1C1 = "=R(0)C" & Col_K_H & "-R(0) & "C" & Col_K_R

bzw in der Kurzschreibweise, da man das "(0)" weglassen darf:


Zelle.FormulaR1C1 = "=RC" & Col_K_H & "-RC" & Col_K_R

wie du siehst, brauchst du hier die Variable Nr nicht mehr, das ist der Vorteil der R1C1-Schreibweise für Zelladressen.
noch ein Tipp: wenn man in mehrere Zellen die gleiche Formel schreibt, sollte man das nicht per Schleife machen, sondern man kann das für alle Zellen in einem Schritt machen:
hierbei fällt auch gleich dein nächster Fehler auf:
wenn du Range(Cells(), Cells()) auf ein anderes Tabellenblatt beziehst (Wb), muss das Wb vor den beiden Cells stehen, nicht vor der Range:
Cells ohne Tabellenblattangabe davor refernzieren immer auf das aktive Tabellenblatt und die Cells, die die Range definieren, müssen auf dem gleichen Blatt liegen wie die Range selbst.
also wenn dann ohne Schleife:


Wb.Range(Wb.Cells(iRow, lZielspalte), Wb.Cells(2, lZielspalte)).FormulaR1C1 =  "=RC" & Col_K_H & "-RC" & Col_K_R

ich würde auch meine Replace-Methode mit der R1C1-Formelschreibweise kombiniern, dann musst du Spaltennummern austauschen.
Gruß Daniel

Dim FO as string FO = "=RCxxx-RCyyy/RCzzz" FO = Replace(FO, "xxx", Col_K_H) FO = Replace(FO; "yyy", Col_K_R) FO = Replace(FO; "zzz", Col_M) Wb.Range(Wb.Cells(iRow, lZielspalte), Wb.Cells(2, lZielspalte)).FormulaR1C1 = FO

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel mit Variablen angeben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread