Zellenumbruch mittels VBA
05.11.2003 10:48:46
Michael
brauche Eure Hilfe.
Ich möchte in meinem Arbeitsblatt einen automatischen Zeilenumbruch erstellen.
Bisher habe ich folgenden VBA Text:
Sub cmdStart_Click()
Dim intRow As Integer
Dim strText As String
Range("A1:D1").MergeCells = True
strText = "Zelle 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
Klappt auch soweit ganz gut bis auf eine Kleinigkeit.
Wenn ich in die Zelle schreibe erstellt mir Excel einen automatischen
Zeilenumbruch sagen wir der Text ist 4 Zeilen gross. Wenn ich jedoch die Eingabetaste drücke wird dieser nicht übernommen und Excel macht mir wieder
eine Zeile daraus.
Für Eure Hilfe bedanke ich mich im vorraus !!!
Gruss Michael