Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellen verbinden und senkrecht ausrichten

Gruppe

Ansicht

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