Zeilenhöhe per VBA
Mandy
ich nutze folgenden Code, um auf einer Seite um die Zellen mit Inhalt einen Rahmen zu ziehen:
Dim rngC As Range, r As Range, s As Shape
Application.ScreenUpdating = False
For Each rngC In Range(Cells(7, 2), Cells(Rows.Count, 2).End(xlUp))
For Each r In rngC.Resize(, 5)
Set s = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 1, 1, 1, 1)
With s
.Width = r.Width
.Left = r.Left
.Height = r.Height - 2
.Top = r.Top
.Fill.Visible = False
End With
Next r
Next rngC
Wie kann ich erreichen, damit der Code die entsprechende Zeile erst auf optimale Höhe stellt (autofit) , BEVOR der Rahmen gesetzt wird.
Wenn ich das nachhher mache, muss ich jedes mal die GRösse meiner Rahmen nachjustieren.
Danke
Mandy