VBA - Spaltenbreite abhängig von Art des Aufrufs

Option Explicit



Public Sub UpdateCheck()



    Dim ws As Worksheet

    Dim v As Variant

    Dim i As Long

    Dim calcState As XlCalculation

    

    'Performance-Boost

    With Application

        .ScreenUpdating = False

        .EnableEvents = False

        calcState = .Calculation

        .Calculation = xlCalculationManual

    End With

    

    Set ws = ThisWorkbook.Worksheets("Update")

    

    'Bereich in Array laden (1 Zugriff statt 27)

    v = ws.Range("A1:AA1").Value2

    

    'Ultra-schnelle Prüfung

    For i = 1 To 27

        

        If LenB(v(1, i)) = 0 Then

            ws.Columns(i).ColumnWidth = 10.08

        Else

            ws.Columns(i).AutoFit

        End If

        

    Next i

    

CleanExit:

    'Alles sauber zurücksetzen

    With Application

        .Calculation = calcState

        .EnableEvents = True

        .ScreenUpdating = True

    End With



End Sub