• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Gegevens van een ListBox en TextBox niet op zelfde regel.

Status
Niet open voor verdere reacties.
A

Abuwaseem

Gebruiker
Lid geworden
9 nov 2013
Berichten
35
Hallo allemaal,

Ik heb een simpel Userform met een tekstbox en Listbox. Wanneer ik een reeks van gegevens in het textbox invul en een selectie van een keuzelijst maakt dan krijg ik de gegevens te zien in het tabel. Maar deze staan niet op de zelfde regel. Weet iemand waar het aan ligt?


Code: 
Private Sub CommandButton1_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Blad1")
myVar = ""


For x = 0 To Me.ListBox1.ListCount - 1

    If Me.ListBox1.Selected(x) Then
       If myVar = "" Then
           myVar = Me.ListBox1.List(x, 0)
      Else
           myVar = myVar & "," & Me.ListBox1.List(x, 0)
           End If
    End If
 Next x
 
ThisWorkbook.Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0) = myVar

End Sub
 
Je moet er een array van maken. Nu schrijf je een teststring weg op 1 regel.

Code: 
Private Sub CommandButton1_Click()
  With ListBox1
    For j = 0 To .ListCount - 1
      If .Selected(j) Then c00 = c00 & "|" & .List(j, 0)
    Next j
  End With
  If Len(c00) Then
    x = Split(Mid(c00, 2), "|")
    Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(UBound(x) + 1) = Application.Transpose(x)
  End If
End Sub
 
VenA zei:
Je moet er een array van maken. Nu schrijf je een teststring weg op 1 regel.

Code: 
Private Sub CommandButton1_Click()
  With ListBox1
    For j = 0 To .ListCount - 1
      If .Selected(j) Then c00 = c00 & "|" & .List(j, 0)
    Next j
  End With
  If Len(c00) Then
    x = Split(Mid(c00, 2), "|")
    Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(UBound(x) + 1) = Application.Transpose(x)
  End If
End Sub
Klik om te vergroten...


Dank je wel voor je reactie en je hulp. Ik heb je code geprobeerd het werkt alleen kwamen de gegevens onder elkaar ik heb het "|" vervangen door "," hierdoor krijg ik de gegevens naast elkaar te zien zoals Appel, Banaan, Druiven.
Maar als ik iets in typte in het Textbox dan gebeurde niets. Dus heb ik een code bij toegevoegd en hierdoor zie ik nou wel de gegevens van de Textbox. Maar nu kom ik weer terug op waar ik was.
Beide gegevens zijn te zien maar niet op de zelfde regel...

Bekijk bijlage 350995

Hier de huidige code:

Code: 
Private Sub CommandButton1_Click()
  With ListBox1
    For j = 0 To .ListCount - 1
      If .Selected(j) Then c00 = c00 & "," & .List(j, 0)
    Next j
  End With
  If Len(c00) Then
    x = Split(Mid(c00, 2), "|")
    Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(UBound(x) + 1) = Application.Transpose(x)

  If MsgBox("Correcte ingave?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub
    With Sheets("Blad1")
        iRow = .Cells.Find(what:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 1).Value = Array(TextBox1.Value, ListBox1.Value)
End With
End If
End Sub
 
Met plaatjes kunnen we toch niet zoveel.

Nb. Het quoten mag je wel achterwege laten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan