Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
Hi,
hat jmd ausgeblendet.So sollte man den Scheiß auch sehen:
Option 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 Sub
hth
Ulf