Herbers Excel-Forum - das Archiv
Zellenumbruch mittels VBA
Betrifft: Zellenumbruch mittels VBA
von: Michael
Geschrieben am: 05.11.2003 10:48:46
Hallo VBA Profis,
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
Betrifft: AW: nimma vbCrLF statt vbLF
von: Galenzo
Geschrieben am: 05.11.2003 11:07:06
Hallo,
probier's mal damit.
Viel Erfolg!
Betrifft: AW: nimma vbCrLF statt vbLF
von: Michael
Geschrieben am: 05.11.2003 11:33:42
Klappt leider nicht.
Immer noch das selbe Problem aber trotzdem Danke
Gruss Michael
Betrifft: AW: getestet und für gut befunden
von: Galenzo
Geschrieben am: 05.11.2003 12:09:51
Hallo,
ich habe eben mal deinen Code getestet - der funktioniert doch...
Allerdings ist die Zeilenbreite etwas niedrig, um den Text dann vollständig und untereinander anzuzeigen. Meinst du dies?
Betrifft: AW: getestet und für gut befunden
von: Scrooge
Geschrieben am: 05.11.2003 16:56:50
Hallo Galenzo
In den ersten 2 Zeilen zeigt er mir den Text an aber wenn eine dritte hinzukommt
zeigt er mir diese nicht mehr an.
Gruss Marko