Hallo
ich muss Werte nach Excel exportieren. Diese mache ich so:
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