MS Excel

Téma: Kolekce + Select case (nefunguje..)

Zaslal/a Merlin99 26.5.2021 10:31

Zdarvim vsechny,
chci se zeptat jestli nekdo poradi jak skloubit kolekci a select case viz prikald. Kolekce vyzaduje pouzit nekde like ale to se mi nedari nijak nastavit...
Problem je ze select nerozezna zadani ktere jsem mu zadal "*x*"
____________________________________
Sub KOLEKCE()
Dim myCol As Collection
Set myCol = New Collection
Dim Cell As Range
Dim Oblast_FAST As Range
Dim MaxRadek As Long
Dim i As Long
Dim X_X As Long

'Tvorba KOLEKCE
MaxRadek = List1.Cells(Rows.Count, "I").End(xlUp).Row
Set Oblast_FAST = List1.Range("I9:I" & MaxRadek)

For Each Cell In Oblast_FAST
myCol.Add Cell
Next Cell

'Vypsání KOLEKCE
i = 9
For Each Item In myCol

Select Case Item
Case "*A*": X_X = 10
Case "*B*": X_X = 11
Case Else: X_X = 12
End Select

List1.Cells(i, X_X).Value = Item
i = i + 1

Next Item
End Sub