Auto Zeilenhöhe mit Mindesthöhe
16.10.2019 11:43:52
Niko
habe folgendes Problem. Möchte in meinem vorhandenen VBA script die Zeilenhöhe automatisieren je nach Text Zeilen aber gleichzeitig sollen die Zeilen nicht kleiner als 20 sein.
Wie kann ich das im vorhandenen Script bewerkstelligen ohne die anderen Funktionen zu verändern?
Ps. Habe in den script den befehl - Rows("10:1009").RowHeight = 20 eingefügt doch dadurch werden die Zeilen nicht größer bei Text mit mehr Zeilen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Berechnung As Long
Berechnung = Application.Calculation
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
Me.Unprotect ("1234")
Set Bereich = Intersect(Target, Range("A15:A1009"))
If Not Bereich Is Nothing Then
Application.EnableEvents = False
Range("A15:A1009").EntireRow.Hidden = False
Rows("10:1009").RowHeight = 20
Range("A" & 48 + WorksheetFunction.CountA( _
Range("A15:A1009")) & ":A1009").EntireRow.Hidden = True
End If
Me.Protect ("1234")
Application.EnableEvents = True
Application.Calculation = Berechnung
Application.ScreenUpdating = True
End Sub
Danke allen im Voraus :-)