Clever-Excel-Forum

Hallo,

Warscheinlich ist meine Frage ganz einfach zu Lösen. Ich weiss einfach nicht nach was ich Suchen muss, da ich in google nichts gefunden habe.

Ich möchte wenn ich Variable 1 oder Veriable 2 ändere der Wert immer 100% bleibt, und sich die variablen dynamisch anpassen:

Beispiel

Feld 1 ¦ Feld 2 ¦ Feld 3

25% + 75% = 100%

Jetzt ändere ich Feld 1 auf 38% nun soll Feld 2 automatisch 62% anzeigen und somit wieder 100 %.
Das wäre ja einfach zu lösen 100% - 38% = 62%

Was aber wenn ich Feld 2 ändere? So das sich Feld 1 anpassen muss? Mit der gleichen Rechnug geht das nicht....

Bin absoluter anfänger :20:


Vielen Dank

Hi,

das kannst du mit Formeln nicht lösen, weil du in einer Zelle entweder nur einen Wert oder eine Formel eintragen kannst. Vllt. schreibt dir ein VBA-Mensch ein Makro.

Hi,

das eben Geschriebene gilt, falls du die Aufgabe tatsächlich, so wie ich dich verstanden habe, ausschließlich in den drei Zellen abarbeiten willst. Mit einer Hilfszelle, die dir sagt, was du eintragen musst, geht es so:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1	Wert1	Wert2	Ergebnis	Hilfszelle
2		75	75	Eintrag in A2: 25

Zelle	Formel
C2	=A2+B2
D2	=WENN(A2="";"Eintrag in A2: "&(100-B2);WENN(B2="";"Eintrag in B2: "&(100-A2);""))

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Danke für die Schnelle Antwort.
Fehlt da noch was, das ich den Wert sehe?

Ich möchte den Wert aber direkt geändert haben.

Wenn ich in B2 was ändere, soll direkt A1 das richtige Resultat zeigen, das ich auf 100% komme.

Hast du meinen ersten Beitrag gelesen?

Moin Günter!
Was hältst Du hiervon (beachte das Zahlenformat)?

	A	B	C	D
1	Wert1	Wert2	Ergebnis	Hilfsszelle
2		18,2	100	In A2 eintragen: 81,8

Zelle	Format	Wert
D2	"In B2 eintragen: "Standard;"In A2 eintragen: "Standard;	-81,8

Zelle	Formel
D2	=(C2-A2)*(B2=0)-(C2-B2)*(A2=0)

Gruß Ralf

Hi Ralf,

:28:

getestet und für gut befunden.

Private Sub Worksheet_Change(ByVal T As Range)
'in A oder B den Anteil eingeben, in C die Summe
 If T.Column < 3 Then
  Application.EnableEvents = False
  T.Offset(0, 3 - T.Column * 2) = Cells(T.Row, 3) - T
  Application.EnableEvents = True
 End If
End Sub

Ungetestet:
Range(DieSumme).GoalSeek Goal:=100, ChangingCell:=Range(DieLeereZelle)

Hi RPP63, damit wird aber genauso wenig "getoggelt", wie bei festen Formeln ;). Auch ist die variable Zelle nicht notwendig leer.