Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten Formatieung

Forumthread: Spalten Formatieung

Spalten Formatieung
14.05.2004 15:03:23
Egon
Hallo,
ich habe da ein Problem.
Wie kann ich eine Spalte mittels VBA z.B.
Spalte A soll zentriert sein
Spalte B soll linksbündig sein
ändern.
Gruß Egon
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten Formatieung
14.05.2004 15:05:17
DieterB
Hallo Egon,
mal mit Rekorder aufgezeichnet

Sub Makro1()
' Makro1 Makro
' Makro am 14.05.2004 aufgezeichnet
Columns("C:C").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Columns("D:D").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Application.CommandBars("Stop Recording").Visible = False
End Sub

Gruß
DieterB
Anzeige
OT Hinweis
PeterW
Hallo Dieter,
der Rekorder ist schon ein wichtiges Werkzeug - aber man sollte den Code nachbessern. Bei der genannten Aufgabenstellung wäre:

Sub Ausrichtung()
Columns("A:A").HorizontalAlignment = xlCenter 'zentriert
Columns("B:B").HorizontalAlignment = xlLeft 'links
End Sub

völlig ausreichend. Sieht irgendwie übersichtlicher aus ;-) und man muss sich beim Versuch, den Code zu verstehen nicht mit den Defaults beschäftigen.
Gruß
Peter
Anzeige
Dankeschön :-)
14.05.2004 15:21:06
Egon
.
gern geschehen :-) danke für Feedback o.T.
14.05.2004 15:29:42
DieterB
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige