optimale Höhe bei Zeilenumbruch

06/12/2007 - 08:19 von Thomas Herrmann | Report spam
Hallo an alle!

Per Userform übertrage ich eine Textbox (Multiline) in eine Zelle.
Obwohl ich den Zeilenumbruch aktiviere, funktioniert die optimale
Zeilenhöhe leider nicht, so daß immer nur die erste Textzeile
angezeigt wird.
Anbei den Code den ich verwende:

Private Sub confirm_Click()
Dim x As Single
x = Sheets("Maßnahmen").Cells(Rows.Count, 2).End(xlUp).Row + 1

Sheets("Maßnahmen").Cells(x, 6) = Left(Replace(TextBox1,
Chr(13), ""), Len(Replace(TextBox1, Chr(13), "")) - 1)
Sheets("Maßnahmen").Cells(x, 6).WrapText = True
Sheets("Maßnahmen").Rows(x).AutoFit
Unload Me
End Sub

Ich benötige dringend eure hilfe,
vielen Dank bereits im vorhinein.

Thomas H.
 

Lesen sie die antworten

#1 Alexander Wolff
06/12/2007 - 11:24 | Warnen spam
Private Sub confirm_Click()
Dim x As Single
x = Sheets("Maßnahmen").Cells(Rows.Count, 2).End(xlUp).Row + 1

Sheets("Maßnahmen").Cells(x, 6) = Left(Replace(TextBox1, _
Chr(13), ""), Len(Replace(TextBox1, Chr(13), "")) - 1)
Sheets("Maßnahmen").Cells(x, 6).WrapText = True
Sheets("Maßnahmen").Rows(x).AutoFit
Unload Me
End Sub



Schnellschuss: Schon mal
Sheets("Maßnahmen").Cells(x, 6).WrapText = True
Sheets("Maßnahmen").Cells(x, 6).AutoFit
versucht?

Oder zeichne Dein Vorhaben einmal auf und leite dann generell davon ab.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen