Gruppe
Allgemein
Problem
Wie kann ich in einem Tabellenblatt mehrere Zeilen verbinden, einen mehrzeiligen Text eingeben und die Zeilenhöhe an den Text anpassen?
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