ich habe folgendes Problem: ich möchte in meinem Arbeitsblatt einstellen, dass je nach Zellinhalt immer die optimalte Zellenhöhe eingestellt wird. Gibt es eine solche Funktion? Oder muss ich jede einzelne Zeile bearbeiten.?
Option Explicit
Sub Zeilenhoehe()
Dim lloHoehe As Long, lloStart As Long, lloEnde As Long
lloStart = DeineErsteZeile
lloEnde = DeineLetzteZeile
For lloHoehe = lloStart To lloEnde
Rows(lloHoehe & ":" & lloHoehe).Rows.AutoFit
Next
End Sub
Hinter lloStart ud lloEnde musst du natürlich deine Start- und Endzeile eintragen.
Hätte ich auch tun können, aber ohne dass du uns diese Werte verrätst, wissen wir nicht, was wir eintragen sollen.
Hilft das?
Ciao
Thorsten