12.05.2020, 13:10
Hallo zusammen,
bekomme für diesen Code für meine Listbox immer die Index Werte in den Zellen D276:D291 nicht als Zahl formatiert. Es werden die kleinen grünen Dreiecke in der Zelle angezeigt und für die Weiterverarbeitung der Werte in Formeln wird der Wert nicht als "Wahr" angezeigt, sondern so, als ob die Zelle leer wäre. Ich kann die Werte zwar manuell auf Zahlen umwandeln (mit der kleinen Box mit dem Ausrufezeichen), nach jeder Neuberechnung wird der Wert wieder nicht als Zahl rechts in der Zelle angezeigt sondern links als Text oder sonstiger Wert. Auch die Formatierung mit der rechten Maustaste und die Formatierung über Daten/Text in Spalten hilft hier nicht. Es fehlt sicherlich nur eine Kleinigkeit, - Danke im Voraus.
Grüße
NobX
Private Sub ListBox1_Change()
Dim i As Long
Dim s() As String
ReDim s(0 To ListBox1.ListCount - 1, 1 To 1) As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
s(i, 1) = i + 1
End If
Next
Range("D275:D295") = s
End With
End Sub
bekomme für diesen Code für meine Listbox immer die Index Werte in den Zellen D276:D291 nicht als Zahl formatiert. Es werden die kleinen grünen Dreiecke in der Zelle angezeigt und für die Weiterverarbeitung der Werte in Formeln wird der Wert nicht als "Wahr" angezeigt, sondern so, als ob die Zelle leer wäre. Ich kann die Werte zwar manuell auf Zahlen umwandeln (mit der kleinen Box mit dem Ausrufezeichen), nach jeder Neuberechnung wird der Wert wieder nicht als Zahl rechts in der Zelle angezeigt sondern links als Text oder sonstiger Wert. Auch die Formatierung mit der rechten Maustaste und die Formatierung über Daten/Text in Spalten hilft hier nicht. Es fehlt sicherlich nur eine Kleinigkeit, - Danke im Voraus.
Grüße
NobX
Private Sub ListBox1_Change()
Dim i As Long
Dim s() As String
ReDim s(0 To ListBox1.ListCount - 1, 1 To 1) As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
s(i, 1) = i + 1
End If
Next
Range("D275:D295") = s
End With
End Sub