Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen

Gruppe

Zelle

Problem

Wie kann ich in einem Tabellenblatt mehrere Zeilen verbinden, einen mehrzeiligen Text eingeben und die Zeilenhöhe an den Text anpassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub cmdStart_Click()
   Dim intRow As Integer
   Dim strText As String
   Range("A1:D1").MergeCells = True
   strText = "Zeile 1"
   For intRow = 2 To 10
      strText = strText & vbLf
      strText = strText & "Zeile " & intRow
   Next intRow
   Range("A1:A1") = strText
   Rows(1).RowHeight = 10 * 13
End Sub