1. Próbowałem wszystkich operatorów liczb: Long, Single, Dubble (bez pozytywnego efektu). Formatowanie kolumn B i J na text (bez pozytywnego efektu). Nic nie rozumie
2. Rozwiązałem w dosyć niekonwencjonalny amatorski sposób, (działa bez zarzutu)
Private Sub ListBox1_Click() 'Markering av rader som är markerade i LiatBox-en
Dim i As Long
Dim wier As Integer
wier = CInt(UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 0) * 10)
If ListBox1.ListIndex >= 0 Then
On Error Resume Next
PM_Index.Range(Cells(wier - 2, "B"), Cells(wier - 2, "I")).Select
End If
End Sub |