ich habe ein lauffähiges Makro, das allerdings für den gesamten Range, also auch für die ausgeblendeten Zeilen gilt. Ich hätte es allerdings gerne so, dass es nur für die sichtbaren Zeilen gilt. Kann mir jemand helfen? Mein Makro:
Sub zeilenhoehe()
On Error GoTo nix
Dim rng As Range
Dim Hoehe
Dim Z As Long
Dim s As Long
Hoehe = InputBox("Welche Höhe?")
If Hoehe = "" Then goto nix
AktiveZelle = ActiveCell.Address
With ActiveSheet
Application.ScreenUpdating = False
.UsedRange.EntireColumn.VerticalAlignment = xlCenter
.UsedRange.WrapText = True
.UsedRange.Rows.AutoFit
For Each rng In .UsedRange.Rows
If rng.RowHeight
Grüße Burghard