marcel31281
Gebruiker
- Lid geworden
- 30 okt 2015
- Berichten
- 391
Beste Forumleden,
Met onderstaande code worden de gegevens uit een userform weggeschreven naar 2 werkbaden, echter bij het wegschrijven van de waarde uit Textbox1 naar tabbald onderdelen word deze achter elke keuze uit listbox1 gezet
Hoe pas ik aan dat de waarde uit de textbox maar 1x meegenomen word, en eventueel in combinatie met de waarde "anders" uit de listbox.
Alvast bedankt voor jullie hulp
Met onderstaande code worden de gegevens uit een userform weggeschreven naar 2 werkbaden, echter bij het wegschrijven van de waarde uit Textbox1 naar tabbald onderdelen word deze achter elke keuze uit listbox1 gezet
Hoe pas ik aan dat de waarde uit de textbox maar 1x meegenomen word, en eventueel in combinatie met de waarde "anders" uit de listbox.
Code:
Private Sub CommandButton1_Click()
Dim i As Long
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
' values delimited by blank .. change as required
ActiveCell.Value = ActiveCell & Me.ListBox1.List(i) & Chr(10)
Sheets("Onderdelen").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(ListBox1.List(i), TextBox1.Text, TextBox2.Value, TextBox3.Value)
End If
Next i
If TextBox1 <> "" Then
ActiveCell.Value = ActiveCell & TextBox1
End If
Unload Me
End SubAlvast bedankt voor jullie hulp
Laatst bewerkt:
