laatste 2 regeld niet in listbox

[DClewis]

Ik heb het volgende probleem : de laatste 2 rijen ,
.Cells(rowIndexInSheet, 11).Value = TextBox5.Value ' Kolom K: Afdeling
.Cells(rowIndexInSheet, 12).Value = TextBox6.Value ' Kolom L: Notitie
worden niet opgenomen in de listbox en verschijnen ook niet in textbox 5 en 6.
Ik zie iets over het hoofd maar zie het zelf niet , iemand een oplossing?

 

[edmoor]

Ik neem aan dat je niet de laatste 2 regels bedoeld maar de laatste 2 kolommen?

 

[snb]

Bespaar je de moeite en gebruik:

VBA voor smarties: Userform als database-invoerscherm

snb-vba.eu

 

[DClewis]

Ik neem aan dat je niet de laatste 2 regels bedoeld maar de laatste 2 kolommen?

Ja dat klopt

 

[AHulpje]

AddItem voor een listbox is beperkt in het aantal kolommen, maar als je de listbox vult via een array kan het wel. Zie

Me.SearchResultsList.List = mySearchResult

 

[DClewis]

Textbox 5 en 6 inderdaad gevuld maar nu laat hij de eerste twee kolommen leeg,
*DeviceNameTextBox.Value = SearchResultsList.List(selectedIndex, 0) ' Laptop Naam
BrandComboBox.Value = SearchResultsList.List(selectedIndex, 1) ' Merk*

Ik bedoelde dat hij alle kolommen in de velden plaatst

 

[AHulpje]

Dat snap ik, foutje bedankt. Bij deze een nieuwe versie.
Maar bekijk je code nog eens goed.
Van dit statement

column_headers = Array("LaptopNaam", "Merk", "Type", "Inch", "UUID", "S/N", "MAC adress", "Jaar", "Status", "Naam", "Afdeling", "Notitie")

gebruik je alleen maar

UBound(column_headers)

en dat is maar goed ook, want die column_headers kloppen niet allemaal met de werkelijkheid.

 

[DClewis]

Super bedankt , doet t

 

[emields]

bekijk deze eens vooral blad DB1