habe folgendes Problem.
Möchte das die Zellen automatische Höhe haben je nach Text Eingabe.
gleichzeitig soll es nur bestimmte Zeilen zeigen.
Der Code funktioniert super, bis auf die Zeilen Höhe automatisch einstellen,
wo ist das Problem im Code?
Code:
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:A100"))
If Not Bereich Is Nothing Then
Application.EnableEvents = False
Range("A15:A100").EntireRow.Hidden = False
Target.EntireRow.AutoFit
Range("A" & 48 + WorksheetFunction.CountA( _
Range("A15:A100")) & ":A100").EntireRow.Hidden = True
End If
Me.Protect ("1234")
Application.EnableEvents = True
Application.Calculation = Berechnung
Application.ScreenUpdating = True
End Sub