ich habe ein undefiniertes Problem mit Textboxen einlesen.
Beim löschen der Selectbox (Text markieren und löschen) werden Werte trotz allem eingelesen, die außerhalb des ListIndex (hier ListIndex + 5) liegen. siehe Code.
In Beispiel werden Werte aus der Zeile 4 eingelesen. Die Textboxen sollen einfach leer bleiben, wenn der Inhalt in der Selectbox von Hand gelöscht wird.
Hat jemand eine Idee? Wie könnte ich das Problem nur lösen?
Private Sub cbselect1_Change()
With Worksheets("Tabelle2")
Worksheets("Tabelle1").Range("R10").Value = _
.Cells(cbselect1.ListIndex + 5, 9).Value
Worksheets("Tabelle1").Range("S10").Value = _
.Cells(cbselect1.ListIndex + 5, 16).Value
Worksheets("Tabelle1").Range("T10").Value = _
.Cells(cbselect1.ListIndex + 5, 17).Value
End With
End Sub
Vorab vielen Dank. Grüße Chandler