Herbers Excel-Forum - das Archiv

Zellenumbruch mittels VBA

Bild

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
Bild

Betrifft: AW: nimma vbCrLF statt vbLF
von: Galenzo
Geschrieben am: 05.11.2003 11:07:06
Hallo,
probier's mal damit.
Viel Erfolg!
Bild

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
Bild

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?
Bild

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
Bild
Excel-Beispiele zum Thema " Zellenumbruch mittels VBA"
Verhindern des Schließens einer UserForm mittels Schließkreuz