Zeilenhöhe

Forumthread: Zeilenhöhe

Zeilenhöhe

08.05.2021 13:41:04

Detlef

Hallo,
ich möchte in bestimmten Bereichen alle Zeilen auf Zeilenhöhe 80 einstellen. Die Zeilen die über 80 sind, sollen aber die vorhandene Höhe behalten.


Sub zellenhöhe80()
' Zellenhöhe auf 80 einstellen
Rows("16:63").Select
Selection.RowHeight = 80
Rows("16:63").Select
Selection.RowHeight = 80
Rows("66:221").Select
Selection.RowHeight = 80
Rows("224:251").Select
Selection.RowHeight = 80
Rows("254:258").Select
Selection.RowHeight = 80
Rows("261:280").Select
Selection.RowHeight = 80
Rows("283:293").Select
Selection.RowHeight = 80
Rows("296:325").Select
Selection.RowHeight = 80
Rows("327:333").Select
Selection.RowHeight = 80
Rows("336:345").Select
Selection.RowHeight = 80
End Sub

Kann mir jemand helfen?
Vielen Dank.
Detlef

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilenhöhe

08.05.2021 13:45:42

Hajo_Zi
AW: Zeilenhöhe

08.05.2021 13:54:41

Detlef
AW: Zeilenhöhe

08.05.2021 14:01:17

Hajo_Zi
AW: Zeilenhöhe

08.05.2021 14:12:57

Detlef
AW: Zeilenhöhe

08.05.2021 14:14:54

Nepumuk

AW: Zeilenhöhe

08.05.2021 13:45:42

Hajo_Zi

Hallo Detlef,
es reicht


Sub zellenhöhe80()
' Zellenhöhe auf 80 einstellen
Rows("16:63").RowHeight = 80
Rows("66:221").RowHeight = 80
Rows("224:251").RowHeight = 80
Rows("254:258").RowHeight = 80
Rows("261:280").RowHeight = 80
Rows("283:293").RowHeight = 80
Rows("296:325").RowHeight = 80
Rows("327:333").RowHeight = 80
Rows("336:345").RowHeight = 80
End Sub

AW: Zeilenhöhe

08.05.2021 13:54:41

Detlef

Hallo Hajo,
vielen Dank.
Werden jetzt aus die Zeilen die höher sind nicht auf 80 gesetzt?
Detlef

AW: Zeilenhöhe

08.05.2021 14:01:17

Hajo_Zi

das hatte ich übeerlesen, das ist aufwendiger.


Sub zellenhöhe80()
' Zellenhöhe auf 80 einstellen
Dim RaZeile As Range
For Each RaZeile In Rows("16:63")
If RaZeile.RowHeight

Gruß Hajo

AW: Zeilenhöhe

08.05.2021 14:12:57

Detlef

Hallo Hajo,
vielen Dank und noch ein schönes Wochenende.
Detlef

AW: Zeilenhöhe

08.05.2021 14:14:54

Nepumuk

Hallo Detlef,
teste mal:

Code:


[Cc]

Public Sub zellenhöhe80()
'
' Zellenhöhe auf 80 einstellen
'
  Dim vntItem As Variant
  Dim objCell As Range

  For Each vntItem In Array("16:63", "66:221", "224:251", "254:258", _
      "261:280", "283:293", "296:325", "327:333", "336:345")

      For Each objCell In Rows(vntItem).Columns(1).Cells

          With objCell

              .RowHeight = Application.Max(80, .RowHeight)

          End With
      Next
  Next
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Forumthread: Zeilenhöhe

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread