Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1604to1608
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 anpassen vba

Zeilenhöhe anpassen vba
02.02.2018 17:28:17
Max
Liebe Alle,
ich versuche die Zeilenhöhe über eine Definition der einzelnen Zeilen von einem Tabellenblatt auf alle anderen Tabellenblätter zu übertragen.
Mein Code:
sheets(wsheets).Select
Union(Rows("1:3"), Rows(22), Rows(25), Rows(33), Rows(35), Rows(43), Rows(45), Rows(53)).RowHeight = 13.2
sheets(wsheets).Select
Union(Rows(4), Rows(6), Rows(11), Rows(20), Rows("54:55"), Rows(23)).RowHeight = 30
sheets(wsheets).Select
Union(Rows(5), Rows("7:10"), Rows(12), Rows(21)).RowHeight = 21
sheets(wsheets).Select
Rows("13:19").RowHeight = 19.8
sheets(wsheets).Select
Union(Rows(22), Rows(24), Rows(34), Rows(44)).RowHeight = 7.2
sheets(wsheets).Select
Union(Rows("26:32"), Rows("36:42"), Rows("46:52")).RowHeight = 12.6
Leider wird nur das nächste Tabellenblatt angepasst und nicht alle, so wie gewünscht.
Kann jemand helfen?
Vielen Dank und Grüße
Max

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilenhöhe anpassen vba
02.02.2018 17:35:32
Werner
Hallo Max,
so:
For Each Worksheet In ThisWorkbook.Worksheets
With Worksheet
Union(.Rows("1:3"), .Rows(22), .Rows(25), .Rows(33), .Rows(35), .Rows(43), .Rows(45), .Rows(53)) _
.RowHeight = 13.2
Union(.Rows(4), .Rows(6), .Rows(11), .Rows(20), .Rows("54:55"), .Rows(23)).RowHeight = 30
Union(.Rows(5), .Rows("7:10"), .Rows(12), .Rows(21)).RowHeight = 21
.Rows("13:19").RowHeight = 19.8
Union(.Rows(22), .Rows(24), .Rows(34), .Rows(44)).RowHeight = 7.2
Union(.Rows("26:32"), .Rows("36:42"), .Rows("46:52")).RowHeight = 12.6
End With
Next Worksheet
Beachte: Bei With - End With muss vor jedes Range-Objekt (Range, Cells, Rows, Columns) ein Punkt, damit korrekt auf das im With angegebenen Tabellenblatt referenziert wird.
Gruß Werner
Anzeige
AW: Zeilenhöhe anpassen vba
05.02.2018 17:39:37
Max
Vielen Dank!
So klappts!
Gruß
Max
Gerne u.Danke für die Rückmeldung. o.w.T.
05.02.2018 21:03:56
Werner
der Zeilenumbruch im Code muss raus...
02.02.2018 17:37:24
Werner
Hallo Max,
..den hat die Forensoftware eingefügt.
Gruß Werner
AW: Zeilenhöhe anpassen vba
02.02.2018 17:44:29
onur
So:
Dim i
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(i).name>

159 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige