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

Zeilenhöhe nur für sichtbare Zeilen

Zeilenhöhe nur für sichtbare Zeilen
10.03.2021 12:19:18
Burghard
Hallo,
ich habe ein funktionierendes Makro, allerdings würde ich gerne noch einen Code für die Zeilenhöhe von 26 reinbringen, dies allerdings nur für die sichtbaren Zeilen in der Selektion. Hier mein Makro:
Sub Markierung_sortieren()
Application.ScreenUpdating = False
With Intersect(Selection.EntireRow, Range("A:D"))
.Sort Key1:=.Cells(1, 2), Order1:=xlAscending, _
Key2:=.Cells(1, 3), Order2:=xlAscending, _
Key3:=.Cells(1, 4), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=5, MatchCase:=False, Orientation:=xlTopToBottom
End With
Application.ScreenUpdating = True
End Sub
Hilfe wäre nett.
Grüße
Burghard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenhöhe nur für sichtbare Zeilen
10.03.2021 12:40:35
Werner
Hallo,
Sub Markierung_sortieren()
Application.ScreenUpdating = False
With Intersect(Selection.EntireRow, Range("A:D"))
.Sort Key1:=.Cells(1, 2), Order1:=xlAscending, _
Key2:=.Cells(1, 3), Order2:=xlAscending, _
Key3:=.Cells(1, 4), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=5, MatchCase:=False, Orientation:=xlTopToBottom
.SpecialCells(xlCellTypeVisible).RowHeight = 26
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner

AW: Zeilenhöhe nur für sichtbare Zeilen
10.03.2021 18:36:26
Burghard
Danke, Werner, funktioniert wie gewünscht! :-)
Grüße
Burghard

Gerne u. Danke für die Rückmeldung. o.w.T.
10.03.2021 19:39:52
Werner

AW: Zeilenhöhe nur für sichtbare Zeilen
10.03.2021 12:48:23
volti
Hallo Burghard,
hier ein Beispiel:
Range("A1:A20").SpecialCells(xlCellTypeVisible).EntireRow.RowHeight = 26
viele Grüße
Karl-Heinz

Anzeige
AW: Zeilenhöhe nur für sichtbare Zeilen
10.03.2021 18:38:35
Burghard
Danke für den Tipp und die Lösung, Karl-Heinz!
Grüße
Burghard

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige