Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zeilenhöhe nur für sichtbare Zeilen
13.10.2013 21:30:03
Burghard
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
lass AutiFit einfach weg ...
13.10.2013 22:31:40
Matthias
Hallo
Versuchs mal so:
If rng.RowHeight And rng.RowHeight  0 Then rng.RowHeight = Hoehe
und das Ganze eben ohne AutiFit
Gruß Matthias

Ich meinte: ohne AutoFit ... oT
13.10.2013 22:42:49
Matthias

AW: funktioniert
14.10.2013 13:45:57
Burghard
Hallo Matthias,
danke, funktioniert genau wie gedacht.
Grüße Burghard
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige