Ich will in einer Tabelle über A1:H1 eine Überschrift zentrieren. Wenn der Bereich selektiert ist, funktioniert das wie folgt:
Range("A1:H1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
End with
Gibt eine Möglichkeit, die Zentrierung über mehrere Zellen vorzunehmen, auch wenn diese nicht angewählt sind? Dabei möchte ich nicht mit mergedcells arbeiten.
Gruss, Peter
With Sheets("Tab1")
.Cells(1, 1) = "Titel XY"
With .Range(.Cells(1, 1), .Cells(1, 8))
.HorizontalAlignment = xlCenterAcross ?
End With