• 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.

Regel in Listbox selecteren

Status
Niet open voor verdere reacties.
Andre175

Andre175

Gebruiker
Lid geworden
2 feb 2018
Berichten
351
Goedemorgen

In het userform "Gezinnen" staat een Listbox.
Wanneer ik daar een regel in selcteer worden de textboxen gevuld met waarden

Echter wanneer ik een regel in de listbox selecteer wordt regel 1 in de listbox gelijk aan de geselecteerde regel.
waar zit de fout?

André

Bekijk bijlage Urenlijsten en facturatie volledig.xlsm
 
Anno 2018 spreek ik liever van huishoudens dan van gezinnen.

Integreer je userforms tot 1 userform met een multipage.

Reduceer je code bijv.

Code: 
Private Sub CbSoortKontrakt_Change()
  If LbGezinnen.ListIndex > -1 Then LbGezinnen.Column(15) = CbSoortKontrakt.Value
End Sub

Gebruik eens wat vaker F8, dan zie je hoe vaak eenzelfde bewerking wordt uitgevoerd.

Met hernoeming van 'controls' kun je 'lussen' gebruiken

Code: 
For j=1 to 20
  Me("T_" & format(j,"00")) =Listbox1.column(j)
next
 
Laatst bewerkt:
Bedankt SNB...

ik zal eens gaan puzzelen met een multipage.

Wat betreft het verschil tussen jou code en de mijne.... ik heb de mijne hier (#2) op helpmij gevonden.
in dat voorbeeldbestand werkte het wel. (bedoeld om gegevens te wijzigen in de listbox)


André
 
Mijn bijdrage
 

Bijlagen

  • Urenlijsten en facturatie volledig.xlsm
    728,7 KB · Weergaven: 46
gast0660.... :thumb::thumb::thumb:

helemaal top.
Ik vraag me vaak af hoe anderen dit zo snel voorelkaar krijgen.
Is het puur de kennis (en vlot kunnen typen ;) ) of zijn er programma's die het schrijven van codes makkelijker maken?

Zelf ben ik sinds januari met VBA begonnen en haal mijn informatie hoofdzakelijk van deze site.
 
Dank voor de feedback:thumb:
Ga eens terug naar het postje van snb (#2) en druk eens op de kleine rode lettertjes onderaan.
Veel leesvoer:D
 
Die ken ik, maak daar ook gebruik van.
Begin januari had ik nog 0,0 benul van VBA codes.
kon wel iets doen met macro's.

Moet dus elke functie opzoeken, en dat kost tijd.
stap voor stap kom ik wel verder, zoals nu ook weer.
 
gast0660.... vraagje.

heb je alleen de code van UfGezinnen aangepast of ook ergens anders nog wijzigingen aangebracht?

Ben ff aant puzzelen met een multipage. jou opmaak en code gekopieerd en geplakt.:D
Krijg helaas gelijk al een foutmelding

Exporteer ik multipage userform vanuit mijn bestand en importeer ik het in het door jou aangepaste bestand, dan werkt het wel.
Dus ik vermoed dat je ergens anders ook iets aangepast hebt.
 
Laatst bewerkt:
Kijk eens bij Formules -> Namen beheren
Code: 
TbIDgezin.Value = WorksheetFunction.Max([IDs]) + 1
De IDs heb je dus niet in uw vb, daarom de foutmelding.
moeten de textboxen op de verschillende pages ook unieke namen hebben?
Klik om te vergroten...
Geef maar een textbox dezelfde naam, dan weet je het direct.:D
 
ben eruit hoor....


nu nog zien dat exel niet om de haverklap vast loopt.....is niet prettig werken zo:confused:


FoutmeldingVBA.JPG


zal eens in het andere Forum de vraag stellen waar het aan kan liggen.
thuis op de desktop heb ik er geen last van, alleen hier in de auto op mijn tablet pc.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan