Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro: Nur für sichtbare Zeilen

Makro: Nur für sichtbare Zeilen
31.12.2018 13:19:42
Burghard
Hallo,
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 

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Nur für sichtbare Zeilen
31.12.2018 13:25:33
Hajo_Zi
If rR.RowHeight 0 Then

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Lösung
31.12.2018 14:42:39
Burghard
Hallo Hajo,
vielen Dank für Deinen Lösungsvorschlag. Hat leider bei meinem Makro nicht wie gewünscht geklappt. Ich habe aber die Lösung gefunden:
...
cMinHeight = CDbl(Hoehe)
For Each rR In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows
rR.AutoFit
If rR.RowHeight < cMinHeight Then
rR.RowHeight = cMinHeight
End If
Next rR
...
Danke nochmals für Deine Mühe und ein gutes neues Jahr!
Burghard
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige