Office 2013: Zellgröße automatisch anpassen

[Fixi]

Hallo,

Zelle B1 hat Formel: =WENN(A1=1;D7;WENN(A1=2;D8;""))
Zelle B1 hat Zeilenumbruch eingestellt
Inhalt von Zellen D7, D8: unterschiedlich lang mit aktiviertem Zeilenumbruch

Wenn ich in Zelle A1 den Wert 1 eingebe, dann wird der Wert aus Zelle D7 übernommen, leider ohne Zeilenumbruch.
Erst wenn ich die Zelle erneut formatiere oder die Zeile doppelt anklicke, oder die Datei speichere, schließe und erneut öffne habe ich das gewünschte Ergebnis.
Ich möchte, dass die Zelle B1 sich stets der Größe von D7 bzw. D8 anpasst, je nach Eingabe in A1.
(Lösung unbedingt ohne Makros!)

Vielen Dank
Fixi

[steve1da]

Hola,

dann musst du in B1 ebenfalls einen Zeilenumbruch formatieren. Per Formel kann das nicht übernommen werden.

Gruß,
steve1da

[Fixi]

B1 hat den Zeilenumbruch eingestellt, habe ich doch beschrieben!

[steve1da]

Hola,

sorry, überlesen. Wenn du allerdings den Zeilenumbruch aktivierst und danach die Formel ni B1 einfügst, verschwindet der Haken wieder. Dann musst du ihn nochmal setzen. Liegt es vielleicht daran?

Gruß,
steve1a

[Fixi]

Hallo,

erst einmal danke für die schnellen Antworten.
Nein, daran liegt es nicht. Der Haken ist stets gesetzt. Habe Deine Methode gerade ausprobiert.

Gruß
Fixi

[steve1da]

Hola,

ist evtl. die automatische Berechnung ausgeschaltet?

Datei - Optionen - Formeln - Arbeitsmappenberechnung

Gruß,
steve1da

[Fixi]

Hallo,

der Haken steht auf "automatisch"

Gruß
Fixi

[steve1da]

Hola,

sorry, dann fällt mir momentan nichts mehr ein.

Gruß,
steve1da

[Fixi]

Hallo,
danke trotzdem!
Geht es denn bei Dir?

Gruß
Fixi

[steve1da]

Hola,

jetzt wo du es sagst...nein. Seltsam.

Gruß,
steve1da

[Fixi]

Hallo,

ich finde dazu nichts im Internet und suche schon seit Monaten!
Kaum zu glauben, dass so eine vermeintlich einfache Sache nicht geht!

Ich kann vom User nicht verlangen, die Datei jedes Mal erst zu speichern, zu schließen und wieder zu öffnen damit er den Inhalt seiner Auswahl lesen kann. Die Inhalte fangen dummerweise auch alle mit gleichem Wortlaut an, so sieht er stets den Anfang (immer das gleiche).

Gruß
Fixi

[gmg-cc]

Moin,
nicht als Lösung, aber vielleicht als Denkanstoß zu einer Lösung: Was passiert, wenn du F9 drückst?

[Fixi]

Hallo,

leider nichts, danke.

Gruß
Fixi

[gmg-cc]

OK,
dann füge in das Modul des Tabellenblatts diesen Code ein:

Code: [Auswählen]

Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "A1" Then Cells(1, 2).WrapText = True
End Sub

[Fixi]

Hallo,

sorry, Lösung ohne Makros bitte.
Die Lösung mit Makro kenne ich (Autofit).
Die Sheets passieren unseren Server nicht, wenn es Makros enthält.

Gruß
Fixi

[gmg-cc]

Danke, dass ich mir umsonst die Arbeit machen durfte. Es ist ja auch nicht so wichtig zu schreiben, was schon probiert worden ist und was evtl. Ausschlusskriterien (VBA) sind.

Nun ja, ich werde dich mit meinen Lösungsvorschlägen nicht mehr "irritieren"

[Fixi]

Hallo,
Ich habe diesen Punkt nicht verheimlicht: damit habe ich sozusagen eröffnet.
Gruß
Fixi