Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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
    Anzeige
    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
    
    GrußformelHomepage
    Anzeige
    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
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige