VBA – Text zentrieren – Zellenausrichtung (horizontal & vertikal)

In diesem Tutorial zeigen wir Ihnen, wie Sie Text in Zellen sowohl horizontal als auch vertikal mit VBA zentrieren können.

Wir können die Gruppe Ausrichtung unter der Hauptregisterkarte Start in Excel verwenden, um Text sowohl horizontal als auch vertikal in einer Zelle zu zentrieren. Wenn wir ein Makro zum Formatieren von Text schreiben, können wir diese Funktionalität mit VBA-Code nachbilden.

Text horizontal zentrieren

Um Text in einer einzelnen Zelle horizontal zu zentrieren, können wir den folgenden Code verwenden:

Sub TextZentrieren()
 ActiveCell.HorizontalAlignment = xlCenter
End Sub

Um Text in jeder Zelle eines ausgewählten Bereichs horizontal zu zentrieren, können wir alternativ das Selection-Objekt verwenden und wie folgt vorgehen:

Sub TextZentrieren()
 Selection.HorizontalAlignment = xlCenter
End Sub

Mit den Konstanten xlLeft und xlRight kann die Ausrichtung auch auf rechts oder links geändert werden. Um den Text in einer Zelle rechts auszurichten, können wir also folgenden Code verwenden:

Sub TextRechtsAusrichten() 
 ActiveCell.HorizontalAlignment = xlRight
End Sub

Text vertikal zentrieren

Die vertikale Textzentrierung erfolgt auf die gleiche Weise wie die horizontale.

Sub CenterTextVertical()
 ActiveCell.VerticalAlignment = xlCenter
End Sub

Das Gleiche gilt für die vertikale Textzentrierung über Selection:

Sub TextZentrieren_Vertikal() 
 Selection.VerticalAlignment = xlCenter 
End Sub

Mit den Konstanten xlTop und xlBottom kann der Text auch am oberen oder unteren Rand einer Zelle oder einer Auswahl ausgerichtet werden.

Sub ObenAusrichten_Vertikal() 
 ActiveCell.VerticalAlignment = xlTop
End Sub

Text gleichzeitig horizontal und vertikal zentrieren

Wenn der Text gleichzeitig horizontal und vertikal zentriert werden soll, gibt es mehrere Möglichkeiten, dies zu tun.

Sub BeideZentrieren()
 ActiveCell.HorizontalAlignment = xlCenter
 ActiveCell.VerticalAlignment = xlCenter
End Sub

Um sich wiederholenden Code zu vermeiden, können wir eine With- und End With-Anweisung verwenden.

Sub BeideZentrieren2()
  With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
  End With
End Sub

Der obige Code wird auf alle Zellen in Excel, die zu diesem Zeitpunkt ausgewählt sind, angewendet.

Die Verwendung von With und End With ist sehr effektiv, wenn innerhalb der Auswahl viele Formatierungen wie z. B. das Zusammenführen von Zellen oder das Ändern der Ausrichtung vorzunehmen sind.

Sub VerbindenUndZentrieren()
  With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlBottom
   .Orientation = -36
   .MergeCells = True
  End With
End Sub