VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellen verbinden und senkrecht ausrichten

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

    


Beiträge aus dem Excel-Forum zu den Themen Format und Ansicht