Probleempje met invoegen gegevens

[ScreenXXL]

Ik heb een listbox met 2 kolommen. ik heb net bij mn andere topic een antwoord gekregen hoe ik die 2e kolom in word zet.

dit word alsvolgt gedaan:

Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
Selection.GoTo wdGoToBookmark, , , "Afleveradressen"
Selection.TypeText Text:=ListBox1.Column(1, i) & " Pallet(s)" & vbCrLf & vbCrLf
Next

maar ik wil dus dat het resultaat van kolom 2 onder een afleveradres komt. dit dacht ik op te lossen door de code om het afleveradres in te voegen onder Next te zetten.
maar dan komen alle resultaten van kolom 2 bij elk adres te staan. hoe los ik dit op?

 

[Axel Hagg]

Invoegen gegevens

Een oplossing is om alles in een tabel te zetten.

Ook kan een kolom worden gemaakt met de functie Tab.

Bijvoorbeeld:

Selection.TypeText Text:=vbtab & "in te voegen tekst" & vbcr

 

[ScreenXXL]

klinkt niet echt aannemelijk.
is er geen andere mogelijkheid?
iets van: voer de lus bij elk record maar 1 keer uit.
of is er een mogelijkheid dat er gewerkt kan worden zonder lus en toch het resultaat van kolom 2 kan worden ingevoegd?

 

[Axel Hagg]

Invoegen gegevens

Een lus die eenmaal iets uitvoert is geen lus.

Verder zou je je probleem wat helderder moeten omschrijven zodat ik echt begrijp wat je precies wilt.

Tot straks

 

[ScreenXXL]

met onderstaande code haal ik aan de hand van de gegevens in de eerste kolom van de listbox de adresgegevens op.
nu wil ik dat er onder die gegevens het aantal pallets komt te staan. deze voer ik handmatig in in de listbox in kolom 2.
hoe ik die kolom 2 in word krijg heb ik al voor elkaar, alleen zet hij bij elk adres alle aantallen pallets die in kolom 2 staan. en ik wil graag dat hij alleen het aantal pallets dat bij het adres hoort erbij zet.
hoe doe ik dat?

Private Sub vullenAfleveradres(crediteurnaam)

    'Set conn = CreateObject("ADODB.Connection")
    'Set rs = CreateObject("ADODB.Recordset")
    
    conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & "I:\Adressen.xls;"
    rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & crediteurnaam & "'", conn
    
    Dim i As Integer

    For i = 0 To ListBox1.ListCount - 1
    Selection.GoTo wdGoToBookmark, , , "Afleveradressen"
    Selection.TypeText Text:=ListBox1.Column(1, i) & " Pallet(s)" & vbCrLf & vbCrLf
Next
    Selection.GoTo wdGoToBookmark, , , "Afleveradressen"
    Selection.TypeText rs("Postcode") & "  " & rs("Plaats") & Space(20) & TextBox5 & vbCrLf
    Selection.GoTo wdGoToBookmark, , , "Afleveradressen"
    Selection.TypeText rs("Adres") & vbCrLf
    Selection.GoTo wdGoToBookmark, , , "Afleveradressen"
    Selection.TypeText rs("Naam") & vbCrLf
    
    
    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing
    
End Sub

 

[Axel Hagg]

Probleem bij invoegen

Dit zou het kunnen zijn

Private Sub vullenAfleveradres(crediteurnaam)

'Set conn = CreateObject("ADODB.Connection")
'Set rs = CreateObject("ADODB.Recordset")

'Ik ga er vanuit dat
'in kolom 0 van ListBox1 de naam staat
'in kolom 1 van ListBox1 het aantal pallets staat



conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & "I:\Adressen.xls;"
rs.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & crediteurnaam & "'", conn

Dim i As Integer

Selection.GoTo wdGoToBookmark, , , "Afleveradressen"
Selection.TypeText rs("Naam") & vbCr
Selection.TypeText rs("Adres") & vbCr
Selection.TypeText rs("Postcode") & " " & rs("Plaats") & Space(20) & TextBox5.Value & vbCr
For i = 0 To ListBox1.ListCount - 1
Selection.TypeText Text:=ListBox1.Column(0, i) & vbTab & ListBox1.Column(1, i) & " Pallet(s)" & vbCr
Next
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub