selbst die weniger geübten VBAstler haben es sicher immer wieder gelesen: Es gibt so ein paar Schnitzer, die man sich nicht öffentlich erlauben sollte. Dazu gehören die Spielereien rund um Selections und natürlich Igittigitt: verbundene Zellen. Dennoch möchte man Sheets, die der Ausgabe dienen, gelegentlich elegant formatieren.
In den neuen XL-Version (ab 2016? nicht sicher ...) gibt dazu im Menü der Zellformatierung > Ausrichtung > Horizontal die Option Über Auswahl zentrieren. Zeichnet man ein Makro dafür auf, wird man mit einem knapp 20-Zeiler belohnt, der natürlich(!) auf der Selection basiert. Heißt ja schließlich auch Über Auswahl ...
Es geht aber auch 1.) deutlich kürzer und 2.) ohne Select. Hier ein Code-Beispiel:
Code: Alles auswählen
Dim rng as Range
Set rng = Range(.Cells(1, 21), .Cells(1, 24))
With rng
.HorizontalAlignment = xlCenterAcrossSelection
End With
Set rng = Nothing