ich habe unteres Makro, das auch funktioniert. Es werden aber auch die ausgeblendeten Zeilen angepasst und wieder sichtbar. Ich hätte dieses Makro gerne nur für die sichtbaren Zellen/Zeilen, so dass die bereits ausgeblendeten Zellen/Zeilen ausgeblendet bleiben.
Grüße und einen guten Rutsch!
Burghard
===========================================
Sub Zeilen_Hoehe()
On Error GoTo nix
Application.ScreenUpdating = False
Dim Hoehe As String
Dim ende As Long
Dim rR As Range
Dim cMinHeight As Double
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ende = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
Hoehe = 26
cMinHeight = CDbl(Hoehe)
For Each rR In ActiveSheet.UsedRange.Rows
rR.AutoFit
If rR.RowHeight