VBS - setColumnWidth

Hallo liebes administrator.de Forum,

ich habe mal wieder ein kleines Problem bei einem VBScript.
Es sollte so aussehen, dass die Spaltenbreite a) selbst definiert wird oder b) automatisch angepasst wird.
Bei mir hängt es beim automatischen Anpassen. Das Script verschlingt immer die ganze Spalte.

Das Script sieht zur Zeit so aus. Das manuelle Definieren funktioniert einwandfrei.

Sub setColumnWidth(ByRef ColumnWidth, ByRef Columns)

With xExcel.ActiveWorkbook.ActiveSheet.Columns(Columns)
	.ColumnWidth = ColumnWidth
End With
If ColumnWidth = 0 Then
	With xExcel.ActiveWorkbook.ActiveSheet.Columns(Columns)
        .EntireColumn.AutoFit
End With
End If
End Sub


Call setColumnWidth(0, "C")  

Gruß,
unkwownuser

Please also mark the comments that contributed to the solution of the article

Content-Key: 127806

Url: https://administrator.de/contentid/127806

Printed on: April 26, 2024 at 14:04 o'clock

3 Comments

Latest comment

Hallo unkwownuser!

Sollte so gehen:

Sub setColumnWidth(ByVal ColumnWidth, ByVal Columns)
    With xExcel.ActiveWorkbook.ActiveSheet.Columns(Columns)
        If ColumnWidth = 0 Then .Columns.AutoFit Else .ColumnWidth = ColumnWidth
    End With
End Sub

Sub test()
    Call setColumnWidth(0, "C")  
    Call setColumnWidth(10.71, "C")  
End Sub

Gruß Dieter

Hallo Dieter,

funktioniert einwandfrei.
Ich danke dir vielmals.

Gruß,
unkwownuser

Hallo unkwownuser!

Gern geschehen

Gruß Dieter

German solved Question VB for Applications Development