ich würde mich freuen wenn mir jemand helfen könnte, um einen Code zu schreiben der bei Click in UF-Listbox (2-spaltig) den Wert aus Spalte 1 in UF-Textbox1 kopiert und den Wert der spalte2 in UF-Textbox 2. Wer kann helfen?
Danke im Voraus Jens
mal ein Code aus meinen Beispielen
Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Private Sub CommandButton1_Click()
Listbox1.List(Listbox1.Listindex, 0) = TextBox1
Listbox1.List(Listbox1.Listindex, 1) = TextBox2
End Sub
Danke Jens
der Code ist korrekt, wenn Du die ListBox mit AddItem gefüllt hast. Das hatte ich auch schon mal geschrieben. Zu diesem Sachverhalt hast Du noch keine Aussage gemacht.
Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Private Sub UserForm_Initialize()
Dim i As Long
Dim j As Byte, k As Byte
Dim strTmp As String
'pos = 1
j = 0
strTmp = Worksheets("Produktiver Lohn").Cells(ActiveCell.Row, 7)
ListBox1.Clear
Do While InStr(strTmp, ";") > 0
ListBox1.AddItem
For k = 1 To 2
If InStr(strTmp, ";") > 0 Then
ListBox1.Column(j, ListBox1.ListCount - 1) = Left(strTmp, InStr(strTmp, ";") - 1)
Else
ListBox1.Column(j, ListBox1.ListCount - 1) = strTmp
End If
j = j + 1
strTmp = Mid(strTmp, InStr(strTmp, ";") + 2, Len(strTmp))
Next
j = 0
Loop
End Sub
Sie wird doch mit AddItem gefüllt.
Irgendwie ist es mir aber zu Aufwendig Deinen Code nachzuvollziehen um danach die Tabelle zu erstellen.
Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel