Wert in andere Zelle übernehmen

[Guru85]

Hallo zusammen und allen ein frohes neues Jahr.

Ich möchte eine Zelle so konfigurieren, dass diese Zelle eine Wenn Formel erhält, da diese automtisch einen Eintrag generieren soll jenachdem was in einer andere Zelle steht.

Soweit so gut. 

Nun möchte ich bei Bedarf in diese Zelle aber auch einen eigenen wert eintragen können. 

Das geht natürlich auch, nur ist dann die Formel weg. 

Kann man eine Zelle so konfigurieren, dass die wenn formel nutzt oder meinen individuellen Eintrag ohne die formel zu verlieren?

[Willie017]

Hallo und Frohes Neues

im Allgemeinen würde ich zuerst versuchen die Logik zur Lösung des Problems zu ändern so dass dieses Formel- Festwertproblem verschwindet.

So auf die Schnelle und weil ich etwas denkfaul bin käme eine VBA Lösung mit Worksheet_Change() in Frage

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) <> "A1" Then Exit Sub
  If Target.Value <> 12345 Then Exit Sub
  Application.EnableEvents = False
  Target.Formula = "=IF(B1=1,2,1)"
  Application.EnableEvents = True
End Sub

[Werner.M]

Hallo,

möglich Lösung ohne VBA (ob für dich so handelbar, kannst nur du sagen).

-Schreib mal ein paar Begriffe/Werte untereinander in Spalte A
-in Spalte B die Formel: =WENN(A1<>"";A1;"")
-Formel nach unten ziehen
-Spalte B als Spaltenbreite 0,1 einstellen

Das hat jetzt folgende Auswirkung:
Da der Formelwert in Spalte B (aufgrund der zu geringen Breite) nicht angezeigt werden kann, wird er in der nichtbelegten Spalte C angezeigt. Sobald du jetzt in Spalte C einen Wert einträgst, wird der Wert der Formel nicht mehr angezeigt, da C ja jetzt belegt ist. Löschst du deinen händischen Eintrag aus C wieder raus, wird wieder das Formelergebnis angezeigt.

Gruß Werner

[Guru85]

Vielen dank für eure Hilfe ich werde es mal auspobieren um zu sehen was gemeint war

[Rabe]

Hi Werner,

Da der Formelwert in Spalte B (aufgrund der zu geringen Breite) nicht angezeigt werden kann, wird er in der nichtbelegten Spalte C angezeigt.

bei mir wird da nichts in Spalte B und C angezeigt.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	1
2	2
3	3
4			14
5	5
6	6
7	7

Zelle	Formel
B1	=WENN(A1<>"";A1;"")
B2	=WENN(A2<>"";A2;"")
B3	=WENN(A3<>"";A3;"")
B4	=WENN(A4<>"";A4;"")
B5	=WENN(A5<>"";A5;"")
B6	=WENN(A6<>"";A6;"")
B7	=WENN(A7<>"";A7;"")

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

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

[RPP63]

Moin Ralf!
Funktioniert nur mit Texten.
Mal sehen, was der TE dazu meint, er wollte ja prüfen.

Gruß Ralf

[Rabe]

Hi Ralf,

aah, ok, daran habe ich nicht gedacht.
Ich bin bei dem Begriff "einen Wert" von einer Zahl ausgegangen.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	1
2	Test	Test	dies passt!
3	2
4
5	so geht es jetzt!	so geht es jetzt!
6	3
7

Zelle	Formel
B1	=WENN(A1<>"";A1;"")
B2	=WENN(A2<>"";A2;"")
B3	=WENN(A3<>"";A3;"")
B4	=WENN(A4<>"";A4;"")
B5	=WENN(A5<>"";A5;"")
B6	=WENN(A6<>"";A6;"")

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

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