Anzeige
Archiv - Navigation
1800to1804
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

Tabellenblätter auswählen

Tabellenblätter auswählen
17.12.2020 11:52:45
sigrid
Hallo zusammen,
ich möchte gern die Tabellenblätter von 1-12 auswählen um die Spalten und Zeilen einheitlich
einzustellen.
Application.ScreenUpdating = False
Rows("1:1").RowHeight = 11
Rows("2:2").RowHeight = 13
Rows("3:3").RowHeight = 22
Rows("4:4").RowHeight = 4
Rows("5:5").RowHeight = 15
Rows("6:6").RowHeight = 15
Rows("7:7").RowHeight = 20
Rows("8:8").RowHeight = 14
Rows("9:9").RowHeight = 14
Rows("10:10").RowHeight = 14
Rows("11:11").RowHeight = 15
Rows("12:12").RowHeight = 20
Rows("13:13").RowHeight = 50
Rows("14:44").RowHeight = 16
Columns("a:a").ColumnWidth = 1.2 'EntireColumn.AutoFit (anpassen)
Columns("b:b").ColumnWidth = 5
Columns("c:c").ColumnWidth = 11
Columns("D:D").ColumnWidth = 11
Columns("e:e").ColumnWidth = 9
Columns("f:f").ColumnWidth = 9
Columns("g:g").ColumnWidth = 9
Columns("h:h").ColumnWidth = 14
Columns("i:i").ColumnWidth = 14
Application.ScreenUpdating = True
mfg
sigrid

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter auswählen Nachtrag
17.12.2020 12:02:30
sigrid
Hallo zusammen,
hatte mal aufgezeichnet, kann aber so nicht gebrauchen, da die
Jahreszahlen sich verändern.
Sub Makro1()
Sheets(Array("Jan 21", "Feb 21", "Mrz 21", "Apr 21", "Mai 21", "Jun 21", "Jul 21", _
"Aug 21", "Sep 21", "Okt 21", "Nov 21", "Dez 21")).Select
Sheets("Jan 21").Activate
End Sub

Das sind in der Datei die ersten 12 Tabellen !
mfg
sigrid
AW: Tabellenblätter auswählen
17.12.2020 12:05:39
Rudi
Hallo,
z.B.
Sub aaaa()
Dim i As Integer
For i = 1 To 12
With Sheets(i)
.Rows(1).RowHeight = 11
.Rows(2).RowHeight = 13
End With
Next
End Sub

Anzeige
AW: Tabellenblätter auswählen
17.12.2020 12:17:16
sigrid
Hallo Rudi,
danke, ich möchte die Zeilen:
.Rows(14:44).RowHeight = 16
einstellen, geht nicht.
Und wie die Spaltenbreiten ?
mfg
sigrid
das soweit
17.12.2020 12:22:24
sigrid
Hallo,
.Rows("15:44").RowHeight = 16
das klappt,
jetzt nur noch die Spalten...
gruß
sigrid
AW: das soweit
17.12.2020 12:26:58
Herbert_Grom
Hallo Sigrid,
das geht mit "ColumnWidth".
Servus
Danke an Rudi und Herbert ! -)
17.12.2020 13:34:06
sigrid
Hallo zusammen,
einwandfrei !
Danke
gruß
sigrid
AW: Gerne geschehen und danke für die Rückmeldung!
17.12.2020 15:15:26
Herbert_Grom
,,,
AW: das soweit
17.12.2020 12:29:06
Rudi

.Columns("b:b").ColumnWidth = 5
.Columns("c:d").ColumnWidth = 11
.Columns("e:g").ColumnWidth = 9
.Columns("h:i").ColumnWidth = 14

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige