ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
Jetzt wird der Text automatisch umgebrochen. Das klappt in der Mehrzahl aller Fälle auch. Aber manchmal ist der Text zu lang und dann ist nur ein Teil davon sichtbar.
Ich würde daher gerne den Text in seiner Größe anpassen und zwar schrittweise solange bis der Text reinpasst, aber mit einer so groß wie möglichen Schrift (nicht größer als 24). Das Problem dabei ist, dass der Zeilenumbruch sich ja nicht nur nach der Breite der verwendeten Buchstaben bemisst (i ist schmaler als B) sondern auch nach der Länge der verwendeten Worte. Daher wäre es optimal, wenn ich die Anzahl der von Excel automatisch gesetzten umbrüche Ermitteln könnte. Automatisch deshalb, weil ich diese ja nicht selbst über chr(10) gesetzt habe.
Ich habe mal das Problem extrahiert und so könnte es ungefähr aussehen:
Sub Schriftgröße()
Range("A4:C4").Font.Size = 24
For i = 1 To 24
x = Range("A4:C4").Font.Size
Range("A4:C4").Font.Size = x - 1
' if anzahl von xl gesetzte zeilenumbrüche
Kann mir da jemand weiterhelfen und aus der auskommentierten Zeile eine Codezeile machen?LG Georg