Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter auswählen

Forumthread: 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
Anzeige

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
Anzeige
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

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
Anzeige
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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige