Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenbreite in aktiver Mappe

Spaltenbreite in aktiver Mappe
18.02.2007 10:55:22
ccrechter@gmx.de
Hallo an alle,
ich versuche die Spaltenbreite mit diesen Angaben einzustellen:
ActiveSheet.Columns("A:A").Select
Selection.ColumnWidth = 6.57
ActiveSheet.Columns("B:B").Select
Selection.ColumnWidth = 13.14
ActiveSheet.Columns("C:C").Select
Selection.ColumnWidth = 6.43
ActiveSheet.Columns("D:D").Select
Selection.ColumnWidth = 25.14
ActiveSheet.Columns("E:E").Select
Selection.ColumnWidth = 10.71
ActiveSheet.Columns("F:F").Select
Selection.ColumnWidth = 8.01
ActiveSheet.Columns("G:G").Select
Selection.ColumnWidth = 10.71
ActiveSheet.Columns("H:H").Select
Selection.ColumnWidth = 3.57
ActiveSheet.Columns("I:I").Select
Selection.ColumnWidth = 3.57
ActiveSheet.Columns("J:J").Select
Selection.ColumnWidth = 3.57
ActiveSheet.Columns("K:IV").Select
Selection.ColumnWidth = 10.71
Ausgeführt wird aber nur die letzte Anweisung. (egal ob sie sich auf nur eine Spalte bezieht oder wie hier jetzt auf den ganzen Rest)
Wie bewege ich Excel dazu die Spalten wie gewünscht einzustellen?
Danke für die Hilfe.
Gruß aus dem Norden
Christian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite in aktiver Mappe
18.02.2007 11:04:11
Peter
Hallo Cristian,
bei mir tut es das nachfolgende Makro:
Public

Sub Spaltenbreite()
With ActiveSheet
.Columns("A:A").ColumnWidth = 6.57
.Columns("B:B").ColumnWidth = 13.14
.Columns("C:C").ColumnWidth = 6.43
.Columns("D:D").ColumnWidth = 25.14
.Columns("E:E").ColumnWidth = 10.71
.Columns("F:F").ColumnWidth = 8.01
.Columns("G:G").ColumnWidth = 10.71
.Columns("H:H").ColumnWidth = 3.57
.Columns("I:I").ColumnWidth = 3.57
.Columns("J:J").ColumnWidth = 3.57
.Columns("K:IV").ColumnWidth = 10.71
End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Spaltenbreite in aktiver Mappe
18.02.2007 11:04:00
Heiko
Hallo Christian,
also deine Urversion tut es bei mir auch, aber so wäre es etwas eleganter.

Sub testT()
With ActiveSheet
.Columns("A:A").ColumnWidth = 6.57
.Columns("B:B").ColumnWidth = 13.14
.Columns("C:C").ColumnWidth = 6.43
.Columns("D:D").ColumnWidth = 25.14
.Columns("E:E").ColumnWidth = 10.71
.Columns("F:F").ColumnWidth = 8.01
.Columns("G:G").ColumnWidth = 10.71
.Columns("H:J").ColumnWidth = 3.57
.Columns("K:IV").ColumnWidth = 10.71
End With
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Spaltenbreite in aktiver Mappe
18.02.2007 11:05:00
Josef
Hallo Christian,
ohne Select.
With ActiveSheet
    .Columns("A:A").ColumnWidth = 6.57
    .Columns("B:B").ColumnWidth = 13.14
    .Columns("C:C").ColumnWidth = 6.43
    .Columns("D:D").ColumnWidth = 25.14
    .Columns("E:E").ColumnWidth = 10.71
    .Columns("F:F").ColumnWidth = 8.01
    .Columns("G:G").ColumnWidth = 10.71
    .Columns("H:H").ColumnWidth = 3.57
    .Columns("I:I").ColumnWidth = 3.57
    .Columns("J:J").ColumnWidth = 3.57
    .Columns("K:IV").ColumnWidth = 10.71
End With

Gruß Sepp
Anzeige
AW: Spaltenbreite in aktiver Mappe
18.02.2007 14:20:00
Christian
Danke an alle,
es funktioniert - endlich...
Gruß
Christian

65 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige