Forum - VBA ListBox δεν εμφανίζει όλες της στήλες

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] ListBox δεν εμφανίζει όλες της στήλες (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2473-listbox-den-emfanizei-oles-tis-stiles.html)

ListBox δεν εμφανίζει όλες της στήλες

Καλησπέρα σε όλους
Στο συνημμένο ανοίγοντας την φόρμα θα πρέπει να εμφανίζονται όλες η αριθμημένες στήλες , και δεν μπορώ να καταλάβω πιο είναι το λάθος.
Κάθε βοήθεια δεκτή σας ευχαριστώ εκ΄των πρότερων Γιώργος.

Κώδικας:

Dim i As Long, x As Integer, LastRow As Long

    LastRow = stoixia.Cells(Rows.Count, 14).End(xlUp).Row

    If LastRow > 1 Then

        With ListBox1

        .ColumnCount = 14

.ColumnWidths = "140;0;0;0;0;60;60;60;60;60;60;60;60;60"

            .Clear

            For i = 11 To LastRow

                .AddItem

                For x = 0 To 9

                    .List(i - 11, x) = stoixia.Cells(i, x + 14)

                Next

            Next

        End With

    End If

Καλησπέρα σε όλους
νομίζω ότι μέχρι 10 στήλες μπορεί να εμφανίσει.
θανάσης

Καλημέρα σε όλους
κοίτα το συνημμένο με τις 4 τελευταίες στήλες σε μία.
θανάσης

Καλημέρα σε όλους
Θανάση σε ευχαριστώ για το ενδιαφέρον σου αλλά η λίστα με τα δεδομένα σε μια στήλη δεν έχει συνοχή.