…Spalten formatieren!
Wie geht das?
Hallo erstmal!
Ich hab eine Datei mit mehreren Tabellenblättern. Jetzt möchte ich die Spalten in meinen Tabellenblättern alle einheitlich (breit) gestalten.
Bei der Anzahl an Tabellenblättern und Spalten ist das per Hand sehr mühselig. Deshalb die frage: Wie kann ich alle ‚A‘-Spalten z.B. auf die gleiche Spaltenbreite bringen?
Muchas Gracias!
El Duderino
…Spalten formatieren!
Wie geht das?
Hallo erstmal!
Ich hab eine Datei mit mehreren Tabellenblättern. Jetzt möchte
ich die Spalten in meinen Tabellenblättern alle einheitlich
(breit) gestalten.Bei der Anzahl an Tabellenblättern und Spalten ist das per
Hand sehr mühselig. Deshalb die frage: Wie kann ich alle
‚A‘-Spalten z.B. auf die gleiche Spaltenbreite bringen?
Gruppenbearbeitung:
Steffen
ja, aber…
das mit der Spaltenbreite funktioniert dann immernoch nicht.
Wenn ich alle Tabellenblätter markiere und eine’A’-Spaltenbreite verändere, bleiben die anderen ‚A‘-Spalten relativ unbeeindruckt.
Trotzdem Danke
The Dude
Merkwürdig, ich hab es extra vorher probiert, bei mir geht es (Excel2000)
Steffen
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
doch!
Anscheinend hab ich nur ein Problem mit der automatischen Spaltenbreitenanpassung. Von Hand gehts. Ist zwar immernoch mühselig, aber immerhin machbar.
Danke nochmal
Dude
Ja, ja … es sind die Kleinigkeiten, die immer wieder in die Irre führen.
Alle A-Spalten „gleich“
Hier hat Steffen die exakte Lösung geliefert.
Tab1A = Tab2A = Tab3A = usw.
Alle A-Spalten „automatische Spaltenbreite“
ist eine völlig andere Aufgabenstellung
Tab1A = Optimal; Tab2A = Optimal, usw
Das eine ist eine Formel - das andere eine Reihe.
Hier hilft ein Makro. Der einfachste Weg:
Du zeichnest ein Makro auf, gehst anschließend auf
Makro | Bearbeiten und ergänzt den Code zu diesem Anblick:
Sub Makro1()
Dim Blatt As Object
Dim ZR As Integer
For Each Blatt In ActiveWorkbook.Worksheets
ZR = ZR + 1
Worksheets(ZR).Activate
Columns("A:A").Select
Selection.Columns.AutoFit
Next Blatt
End Sub
Gruß Carola
(xls2000)
Auch das sollte funktionieren
Steffen
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Steffen,
sollte wirklich - seh ich auch so. Meiner macht es nicht,
ich hab SR 1 ( … grübel)
Gruß Carola
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ja, ja … es sind die Kleinigkeiten, die immer wieder in die
Irre führen.Alle A-Spalten „gleich“
Hier hat Steffen die exakte Lösung geliefert.
Tab1A = Tab2A = Tab3A = usw.Alle A-Spalten „automatische Spaltenbreite“
ist eine völlig andere Aufgabenstellung
Tab1A = Optimal; Tab2A = Optimal, usw
Das eine ist eine Formel - das andere eine Reihe.
Hier hilft ein Makro. Der einfachste Weg:
Du zeichnest ein Makro auf, gehst anschließend auf
Makro | Bearbeiten und ergänzt den Code zu diesem Anblick:
Es geht auch bei Gruppenbearbeitung per Doppleklick auf die Spaltenkopfbegrenzung (Excel2000). Alle „A“-Spalten (in obigem Beispiel) sind dann individuell auf ihre jeweilige Inhaltsbreite angepasst.
Gruß
Steffen
Sub Makro1()
Dim Blatt As Object
Dim ZR As Integer
For Each Blatt In ActiveWorkbook.Worksheets
ZR = ZR + 1
Worksheets(ZR).Activate
Columns(„A:A“).Select
Selection.Columns.AutoFit
Next Blatt
End SubGruß Carola
(xls2000)
Das ist ja nun der Hit -
der macht das
freu - Danke - Gruß
> Sub Makro1()
> Dim Blatt As Object
> Dim ZR As Integer
> For Each Blatt In ActiveWorkbook.Worksheets
> ZR = ZR + 1
> Worksheets(ZR).Activate
> Columns("A:A").Select
> Selection.Columns.AutoFit
> Next Blatt
> End Sub
Hi Carola,
ich würde das so lösen:
Sub Makro1()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Columns("A").ColumnWidth = 5
Next Blatt
End Sub
Sub Makro2()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Columns("A").Columns.AutoFit
Next Blatt
End Sub
Gruß
Reinhard, auch XL2000 \*g
BLATT.Columns(„A“).Columns.AutoFit
Thx 
& Gruß
Carola