Option Explicit
Public Sub Main()
Dim rngRange As Range
For Each rngRange In ActiveSheet.UsedRange.Rows
rngRange.Hidden = False
rngRange.RowHeight = 15
Next rngRange
End SubOption Explicit
Public wb As Workbook
Public wks As Worksheet
Public rgZeilen As Range
Public lngZeilen As Long, lngZeile As Long
Public Sub zeigewks()
Set wb = ThisWorkbook 'wenn Code in anderer (bspw neuer) Datei hier:
'Set wb = Workbooks ("NAME.xls")
Set wks = wb.Worksheets("Bucherwerb 2020 bis 2026")
Set rgZeilen = wks.UsedRange
lngZeilen = rgZeilen.Rows.Count
For lngZeile = 2 To lngZeilen
With rgZeilen.Rows(lngZeile)
.RowHeight = 15
End With
Next lngZeile
rgZeilen.Rows.AutoFit
End SubRows.hidden = false