Could not set the Columnwidths property - Type mismatch

Hej eksperter,

En sjælden gang i mellem, når jeg starter en userform, så får jeg denne fejlmeddelelse. Det vil jeg meeeget gerne rundt om, for det forvirrer brugerne og er generelt bare ikke cool.

Det er altså en periodisk fejl.

Det sker under userform_activate, når min listbox loades. I debug-vinduet er det kolonnestørrelserne i min with listbox kode, der lyser gult. Håber nogen kan hjælpe :).

Koden ser sådan her ud:

'populere listbox OG sorteringcombobox

Sheets("Variable").Select
'slette hvad der står i forvejen!
Range("G2:K1000").ClearContents


Dim wbold As Workbook
Dim wbnew As Workbook
Dim sidsteiforg As Long
Dim sidsteif As Long

Set wbold = ActiveWorkbook

    'Se først om den allerede ER åben, så åbn ikke igen!
Dim indsatsfelterfil As String
indsatsfelterfil = Sheets("Opsætning").Range("C6").Value

    If IsFileOpen(indsatsfelterfil) Then
    Windows("Indsatsfelter v.1.0.xlsm").Activate
    Else
   
Workbooks.Open (indsatsfelterfil)
End If

'Workbooks.Open (Sheets("Opsætning").Range("C6").Value)

'fortsæt

Set wbnew = ActiveWorkbook

'kopier indsatsfelter over
Sheets("Indsatsfelter").Activate

sidsteiforg = Range("B1000").End(xlUp).Row

Range("B4:F" & sidsteiforg).Copy

'wbnew.Close savechanges:=False

wbold.Activate

Sheets("Variable").Activate

Range("G2").Select
ActiveSheet.Paste

sidsteif = Range("G1000").End(xlUp).Row

    With frmtrs!lbindsatsfelter
        .RowSource = Worksheets("Variable").Name & "!" & "G2" & ":K" & sidsteif
        .ColumnCount = 5
        .ColumnWidths = "100, 80, 80, 80, 80" 'DET ER HER DEN FEJLER!
    End With