Dieses Dokument: https://www.herber.de/bbs/user/34703.xls
Wird in der Seitenansicht folgendermaßen angezeigt:
Und dann auch so gedruckt! Mit den ganzen Fehlern (Keine automatische Zeilenanpassung, Extraleerzeile)
Ich habe auch nicht etwa Zoom oder so etwas drin.
Hier der Code:
.Range("A" & row & ":F" & row).RowHeight = 13
.Range("A" & row & ":F" & row).Font.Size = 9
.Range("A" & row & ":F" & row).VerticalAlignment = -4160
.Range("B" & row & ":D" & row).WrapText = True
.Range("A" & row & ":F" & row).EntireRow.AutoFit
.Cells(row, 1).Value = nameShort
.Cells(row, 2).Value = longText
Bitte helft mir!