VBA: Zellinhalt wird nicht angezeigt

Dim x

Dim k

Dim t

Dim s



'x = Anzahl der Zellen

x = Cells(Rows.Count, 1).End(xlUp).Row



's = Spaltenzahl

s = 11





For i = 2 To x



'k = Position von [-]

k = InStr(1, Cells(i, 1).Text, "[-]")



't = Zellinhalt

t = Cells(i, 1).Value



'Position von [-]

Select Case k

    Case 1 To 2

        Cells(i, s).Value = "'" & t

    Case 3 To 4

        Cells(i, s + 1).Value = "'" & t

    Case 5

        Cells(i, s + 2).Value = "'" & t

    Case Is > 5

        Cells(i, s + 3).Value = "'" & t

    Case Else

        Cells(i, s).Value = " "

        

End Select