ShrinkToFit
06.02.2018 13:00:15
Peter
Ich lege eine neue Tabelle an und möchte, dass Spalte I eine Breite von 15 hat - wenn der Text in einer Zelle nicht Platz hat, soll auf der entsprechenden Zeile die Schrift entsprechend kleiner werden.
So klappt es nicht (bei Bedarf wird mit diesem Code die Spaltenbreite angepasst, so dass alles Platz hat):
With Wsh_Konto
.Columns("I:I").ColumnWidth = 15
.Columns("I:I").ShrinkToFit = True
End With
Was ist die Lösung?
Gruss, Peter