Wer schlanker wirken möchte, sollte sich in der Nähe von Elefanten aufhalten.
Einfach nicht aufgepasst.
Access
Ich erstelle ein Endlosformular mit einem Textfeld, das natürlich mehrmals angezeigt wird:
![](https://www.excel-nervt.de/wp-content/uploads/2022/03/20220316Form01.png)
Das Feld, oder genauer: der Detailbereich soll so groß werden wie der Text es vorgibt. Ein paar Zeilen Code sind nötig:
If intZeilen > 6 Then
Me.Detailbereich.Height = (1701 / 6) * intZeilen
Me.txtAktueller_Stand.Height = (1701 / 6) * intZeilen
Else
Me.Detailbereich.Height = 1701
Me.txtAktueller_Stand.Height = 1701
End If
Der Detailbereich wird größer, wenn längerer Text eingegeben wurde und der Cursor in das Textfeld gesetzt wird:
![](https://www.excel-nervt.de/wp-content/uploads/2022/03/20220316Form02.png)
Allerdings: der Bereich wird nicht wieder kleiner:
![](https://www.excel-nervt.de/wp-content/uploads/2022/03/20220316Form03.png)
Die Lösung:
ich darf nicht zuerst den Detailbereich verkleinern und anschließend das Textfeld, sondern umgekehrt: zuerst das Textfeld und DANN den Detailbereich:
Me.txtAktueller_Stand.Height = (1701 / 6) * intZeilen
Me.Detailbereich.Height = (1701 / 6) * intZeilen
DANN klappt es auch:
![](https://www.excel-nervt.de/wp-content/uploads/2022/03/20220316Form04.png)