Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige