Problem mit ListBoxeintrag ändern
28.01.2009 09:14:00
A.Franz
ich habe gestern von einem Forumsmitglied einen Lösungsvorschlag bekommen, mit welchem ich ListBoxeinträge ändern kann.Der Code funktioniert soweit auch ganz gut..ABER..jetzt das Problem.
Da sich in meiner UserForm mehrere TextBoxen befinden, ich aber mit den TextBoxen 13-22 den ListBoxeintrag ändern möchte, müsste der nachfolgende Code angepasst werden, so das nur diese TextBoxen zum ändern angesprochen werden.Ich habe alles mögliche ausprobiert, bekomme dies aber nicht hin.
Kann mir bitte noch mal jemand helfen?
Hier der Code zum ändern eines ListBoxeintrages:
Private Sub CommandButton1_Click()
Dim iIndex As Integer
If ListBox1.ListIndex
Private Sub CommandButton2_Click()
Dim lZeile As Long
Dim iIndex As Integer
lZeile = Me.ListBox1.List(Me.ListBox1.ListIndex, 10)
With ThisWorkbook.Worksheets("Tabelle1")
For iIndex = 1 To 10
.Cells(lZeile, iIndex).Value = Controls("TextBox" & iIndex).Value
Next iIndex
End With
End Sub
Für jede Hilfe vorab vielen Dank
Gruß Andre
Anzeige