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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 127806

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

Ausgedruckt am: 23.11.2024 um 01:11 Uhr

3 Kommentare

Neuester Kommentar

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