Excel VBA Zellenhöhe richtig anpassen
23.07.2018 12:23:55
FabC
ich habe ein Problem mit der Zellengröße in meiner Excel Tabelle:
Immer wenn ich die Zellenhöhe an meine Texte anpassen möchte(mit VBA-Code), sind einige Zellen dabei, bei denen die Texte unten einen Absatz zu viel machen, sodass die Texte nicht ganz die Zelle ausfüllen. Ich hätte es aber gerne so, dass meine texte die Zelle komplett ausfüllen. Hat jemand dafür einen Lösungsansatz?
Ich bin für jede Hilfe dankbar.
Anmerkungen zum Problem:
-Die Spaltenbreite soll nicht verändert werden
-Texte werden zufällig in den Zellen verteilt, daher wenn möglich eine dynamische Lösung
VBA-Code zum Anpassen der Zellenhöhe:
Sub HoeheAnpassenEinzelblatt()
Dim intLastRow As Integer
intLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
With ActiveSheet
.Rows("1:15").RowHeight = 10
.Columns("A:A").ColumnWidth = 50.2
.Rows("1:15").EntireRow.AutoFit
End With
End Sub
MfG
FabC