Hallo Ihr Wissenden,
Werte in einer Tabelle zu addieren ist kein Problem. Ich soll herausfinden, ob es möglich ist Formeln zu addieren. Also z. B.:
B1 =A1/2
C1 =A1+B1
in D2 soll nun praktisch so etwas drinstehen wie: =Nimm die Formel aus B1 und papp die Formel aus C1 dahinter
so dass hinterher in der Zelle D2 steht =(A1/2)+(A1+B1) und zwar ohne dass man diese Formel per Hand eingetippt hat.
Ist das möglich? Wer weiß was?
Viele Grüße
gipsy
Hallo,
irgendwie verstehe ich deine Frage nicht…
Es ist doch irrelevant ob der Inhalt einer Zelle per Hand eingetippt wurde oder das Ergebnis einer Formel ist.
Warum also in D1 nicht die Formel
=B1+C1
oder meinst du so etwas:
http://www.excelformeln.de/formeln.html?welcher=238
Gruß Holger
Hallo gipsy,
Werte in einer Tabelle zu addieren ist kein Problem. Ich soll
herausfinden, ob es möglich ist Formeln zu addieren.
in D2 soll nun praktisch so etwas drinstehen wie: =Nimm die
Formel aus B1 und papp die Formel aus C1 dahinter
Das geht grundsätzlich schon. Die Frage ist, wie du das einsetzen willst. Denn die Sub muss ja wissen, wie sie die beiden Formeln verknüpft. Soll es immer eine Addition sein? Wenn ja, sind es immer nur die Formeln aus B1 und C1?
so dass hinterher in der Zelle D2 steht =(A1/2)+(A1+B1) und
zwar ohne dass man diese Formel per Hand eingetippt hat.
Im einfachsten Fall könnte es so aussehen:
Sub addiere()
ActiveWorkbook.ActiveSheet.Range(„B1“).Select
bFormula = Selection.Formula
ActiveWorkbook.ActiveSheet.Range(„C1“).Select
cFormula = Selection.Formula
pos = Application.Find("=", cFormula, 1)
splitString = Mid(cFormula, pos + 1)
newFormula = bFormula + " + " + splitString
ActiveWorkbook.ActiveSheet.Range(„D1“) = newFormula
End Sub
Gruß, Leebo
Hallo Leebo,
Denn die Sub muss ja wissen, wie sie die
beiden Formeln verknüpft. Soll es immer eine Addition sein?
Wenn ja, sind es immer nur die Formeln aus B1 und C1?
Leider ist das nicht so einfach. (Sub sagt mir übrigens überhaupt nichts, ich vermute mal, das hat was mit VBA zu tun?) Ich soll auch nur herausfinden wie es funktioniert, selbst weiß ich nicht genau was meine Chefin damit machen möchte. Wenn ich das richtig verstanden habe, möchte sie sozusagen eine Formel zum „Zusammenklicken“ haben.
Also in etwas so:
In den ersten Spalten stehen irgendwelche Werte (Geldsummen). Sagen wir mal die Formeln von Spalte D bis Spalte K sind in allen Reihen relativ gesehen gleich. Da werden dann mit den Werten allerlei komplizierte Berechnungen angestellt.
Ab Spalte L geht es dann ans eingemachte. Da muss dann ein Ergebnis hin, das sich aus den ganzen anderen Daten und Berechnungen, die sozsuagen nur Zwischenschritte sind, zusammensetzt. So etwa in der Art wie:
Bei L15: Wenn in K15 der Wert größer als Null ist dann nehme die Formel aus D15 und die Formel aus E15 und mulitpliziere das mit 5.
Das dumme ist halt, dass das dann auch nicht in jeder Zeile gleich ist. Bei jeder Reihe sind die Bedingungen anders (es handelt sich um Abteilungen, bei der viele Sondervereinbarungen haben) In der nächsten Zeile könnte dann also stehen:
L16: Nehme die Formel aus F16 und die aus G16 und multipliziere das mit dem Wert aus B16.
Ich bin mir nicht mal sicher, meine Chefin tatsächlich immer nur die Formeln addieren will. Zur Zeit geht sie dann immer in die entsprechenden Zellen, kopiert das da raus und hängt das dann in der Zelle, in der die zusammengesetzte Formel stehen aus, einfach dran. Bei mehreren hundert Datensätzen ist das eine ziemlich aufwendige Angelegnheit.
Sub addiere()
ActiveWorkbook.ActiveSheet.Range(„B1“).Select
bFormula = Selection.Formula
ActiveWorkbook.ActiveSheet.Range(„C1“).Select
cFormula = Selection.Formulapos = Application.Find("=", cFormula, 1)
splitString = Mid(cFormula, pos + 1)newFormula = bFormula + " + " + splitString
ActiveWorkbook.ActiveSheet.Range(„D1“) = newFormulaEnd Sub
Ich wüsste nicht mal, wo ich das hinschreiben würde … (Was mich nicht daran hindern wird, das irgendwie mal auszuprobieren)
Viele Grüße
gipsy
Hmm, wahrscheinlich hab ich da grad Blödsinn erzählt also so wie ich mir das vorstelle, wofür sie das braucht. Denn bei dem was ich als Beispiel angegeben habe, ist ja kein Grund vorhanden, warum man nicht den Wert nehmen kann sondern die Formel braucht.
Sie wird einen Grund haben wofür sie es braucht, nur kenne ich den leider nicht. *seufz*
(nicht sehr hilfreich, ich weiß)
Viele Grüße
gipsy
B1 =A1/2
C1 =A1+B1in D2 soll nun praktisch so etwas drinstehen wie: =Nimm die
Formel aus B1 und papp die Formel aus C1 dahinterso dass hinterher in der Zelle D2 steht =(A1/2)+(A1+B1) und
Hallo Gipsy,
Alt+F11, Einfügen—Modul, darein den nachfolgenden Code kopieren, Editor schließen.
In Excel dann Alt+F11 und das Makro „Zusammen“ ausführen lassen.
Sub Zusammen()
Range("D2").Formula = Range("B1").Formula & "+" & Mid(Range("C1").Formula, 2)
End Sub
Aber grundsätzlich ist es sehr viel besser du klärst mal genauestens ab was deine Chefin da so plant.
Oder kann sie etwa selbst auch schreiben und lesen und umsetzen? 
Gruß
Reinhard
Hallo,
also ganz schlau werd ich auch nicht aus der Forderung, Formeln zu verknüpfen 
Ich wollte nur zeigen, dass es grundsätzlich geht. Klar ist es eig unsinnig, da Excel implizit sowieso die Formeln verknüpft.
Zum Programm:
Drück im Excel Alt+F11, dann kommst in VBA-Editor. Füg ein neues MOdul ein und kopiere da den Text meines Programmes von Sub … bis …end sub rein.
Gruß, Leebo
Hallo Reinhard,
Aber grundsätzlich ist es sehr viel besser du klärst mal
genauestens ab was deine Chefin da so plant.
Sollte ich wohl mal, wenn ich sie heute noch erwische.
Oder kann sie etwa selbst auch schreiben und lesen und
umsetzen?
Könnte Sie, hat aber keine Zeit dazu. Deshalb muss ich nun mit fast nichts in den Händen versuchen die Lösung zu finden.
Viele Grüße
gipsy
Hallo Gipsy,
Könnte Sie, hat aber keine Zeit dazu.
Schnickschnack, sie hat Zeit, wer sowas macht:
„Zur Zeit geht sie dann immer in die entsprechenden Zellen, kopiert
das da raus und hängt das dann in der Zelle, in der die
zusammengesetzte Formel stehen aus, einfach dran. Bei mehreren
hundert Datensätzen ist das eine ziemlich aufwendige Angelegnheit.“
der hat Zeit )
Die Notwendigkeit alles manuell zu tun kann ich mir nur bei einer völlig marode aufgebauten Tabelle vorstellen. Ansonsten gibts da sicher Möglichkeiten dafür den Zeitaufwand zu verkürzen bis im Idealfall hin zu einem einzigen mausklick.
Deshalb muss ich nun mit
fast nichts in den Händen versuchen die Lösung zu finden.
Sowas machen Chefs gerne wie ich vom Mitlesen in Foren weiß 
Am liebsten noch mit der Anweisung daß es Übermorgen oder besser Vorgestern schon fertig sein soll (
Gruß
Reinhard
Deshalb muss ich nun mit
fast nichts in den Händen versuchen die Lösung zu finden.Viele Grüße
gipsy