Exportieren nach Excel, Zeilenumbruch und Zellenhöhe

[heidiweber]

Hallo

ich muss Werte nach Excel exportieren. Diese mache ich so:

Code

	Dim xlApp  As Variant   ' excel application object
	Dim books As Variant   ' workbooks list object
	Dim book As Variant   ' workbook object
	Dim sheets As Variant   ' worksheets list object
	Dim sheet As Variant   ' worksheet object
	Dim range As Variant   ' range object
	Dim oWorkbook As Variant

		' run excel
		Set xlApp  = CreateObject("Excel.Application")
		xlApp.Visible = True
		Set oworkbook = xlApp .Workbooks
		oworkbook.Add

xlApp.cells(3,2) = "Das ist mein Text"
'Breite der Zelle
xlApp.cells(3,2).ColumnWidth = 32

Ist es möglich, dass ich die Breite einer Zelle vorgebe und der Text automatisch umgebrochen (wie wenn man in Excel ALT+ENTER drückt) wird, wenn der Text länger als die Zeilenbreite ist? Nachdem der Umbruch erfolgt ist, soll ausserdem die Zellenhöhe automatisch angepasst werden.

Kann man dies machen? Oder muss man dies alles händisch programmieren?

Vielen Dank
Grüße
Heidi

[ZaLudtske]

Über die Eigenschaft WarpText des Range-Objektes kannst du den automatisch Umbruch aktivieren

Rainer

[Axel]

Schau mal hier: http://atnotes.de/index.php?topic=39862.0

Das solltest du alles finden was du brauchst.

Axel

[heidiweber]

Vielen Dank an euch

Hier die Lösung:
xlApp.cells(4,2).WrapText = True

Noch einen schönen Tag
Heidi