Gruppe
Format
Bereich
Ansicht
Thema
Zellen verbinden und senkrecht ausrichten
Problem
Über festgelegte Variablen für den Zeilenindex sollen Zellen verbunden und mit senkrecht ausgerichtetem Text versehen werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub Verbinden()
Dim iRowL As Integer, iRowC As Integer
iRowL = 30
iRowC = 20
With Range(Cells(iRowL - iRowC, 1), Cells(iRowL, 1))
.Merge
.Value = "Monatsaufstellung"
.Orientation = 90
.Font.Bold = True
.VerticalAlignment = xlCenter
End With
Columns(1).AutoFit
End Sub