vba excel contare righe selezionate nella listbox

[macio66]

Buongiorno
Ho questo codice dove, selezionando più righe nella listbox, vengono scritte nel foglio (Base199).
Volevo sapere se è possibile, man mano che seleziono le righe, avere il conto di quante righe sono selezionate nella Testbox3 (invece ora mi da solo il numero/posizione dell'ultima riga selezionata).
Grazie

Private Sub ListBox199_Change()
Dim I As Integer
Dim my_S As String
Application.ScreenUpdating = False
With ListBox199
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
my_S = Switch(Len(my_S) = 0, .List(I), Len(my_S) <> 0, my_S & " " & .List(I))
End If
Next I
End With
Worksheets("Base199").Range("AO1").Value = my_S
Application.ScreenUpdating = True
'
For conta = 0 To ListBox199.ListCount - 1
If ListBox199.Selected(conta) = True Then
TextBox3.Value = conta
End If
Next conta
'
End Sub

[alfrimpa]

Ciao macio

Senza il file è difficile dire ma prova con

Codice: Seleziona tutto

TextBox3.Value = TextBox3.Value + 1

[Anthony47]

Se col metodo suggerito da Alfredo ti andasse in errore quando il txtbox e' vuoto allora prova a modificare il codice come segue:

Codice: Seleziona tutto

Private Sub ListBox199_Change()
Dim I As Integer
Dim my_S As String, myCnt as Long
Application.ScreenUpdating = False
With ListBox199
    For I = 0 To .ListCount - 1
        If .Selected(I) = True Then
            my_S = Switch(Len(my_S) = 0, .List(I), Len(my_S) <> 0, my_S & " " & .List(I))
            myCnt = myCnt + 1
        End If
    Next I
End With
Worksheets("Base199").Range("AO1").Value = my_S
Application.ScreenUpdating = True
TextBox3.Value = myCnt
End Sub


Ciao

[macio66]

Ciao
La seconda soluzione è perfetta.
Grazie per il vostro aiuto e buona giornata.