Ciao Gret

Non credo che la textbox sia il controllo adatto per fare quello che chiedi.

Anche se vedi molti valori essi sono comunque un'unica stringa.

Forse una listbox?

Alfredo

Avendo una listbox nell'userform prova questo codice (associato ad un commandbutton) che è stato scritto esclusivamente sulla base dell'esempio postato.

`Private Sub CommandButton1_Click()
Dim rng As Range
Dim cel As Range
For Each cel In Range("a1:k50")
    If cel.Font.ColorIndex = 3 Then
        Set rng = cel.CurrentRegion
    End If
Next cel
For Each cel In rng
    Me.ListBox1.AddItem cel.Value
Next cel
End Sub`

Prova a sostituire questa

For Each cel In Range("a1:k50")

For Each cel In Workbooks("MioFle.xlsx").Worksheets("MioFoglio").Range("MioIntervallo")

Se sullo sheet2 vi fosse un'intestazione l'istruzione (che va all'interno del ciclo For)

n = Cells(Rows.Count, 9).End(xlUp).Row + 1

sarebbe giusta ma poichè lo sheet2 è vuoto dovresti gestire la cosa con un If in questo modo (io non l'ho provato)

For i = 0 To Me.ListBox1.ListCount - 1
If Range("I5").Value = "" Then
    n = 5
    Else
    n = Cells(Rows.Count, 9).End(xlUp).Row + 1
End If
    Sheets(2).Cells(n, i + 9).Value = Me.ListBox1.List(i)
Next i

Fai cosi.

Sullo Sheet2 inserisci un'intestazione (anche fittizia da I4 ad S4 che eventualmente nascondi.

Al secondo CommandButton sull'userform associa questo codice

Private Sub CommandButton2_Click()
Dim i As Integer
For i = 0 To Me.ListBox1.ListCount - 1
    n = Sheets("Sheet2").Cells(Rows.Count, i + 9).End(xlUp).Row
    Sheets(2).Cells(n + 1, i + 9).Value = Me.ListBox1.List(i)
Next i
End Sub

Beh qui siamo all'ABC del VBA.

Con quella istruzione si dichiara una variabile di tipo Integer che può memorizzare valori che vanno da  -32.768 a + 32.767

Ma anche qui devi documentarti su cosa sono le variabili, di che tipo possono essere e, in base al tipo, quali valori possono in esse essere memorizzati.

Alfredo