Excel und VBA: Formeln, Programmierung, Lösungen

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