VBA - Labels

[Bosswilly]

Goedendag,

Heb een vraagje over labels.

Ik heb al een wat labels gebruikt in een excellijst, nl.:

------------------------------------------------------------------
Private Sub UserForm_Initialize()
ar = Sheets("Hoofdmenu").ListObjects(1).DataBodyRange
For j = 1 To 13
Me("Lbl" & j).Caption = ar(j, 3)
Me("Lbl" & j).BackColor = IIf(ar(j, 3) < 0, vbRed, vbGreen)
Me("Lbl" & j).Caption = Format(ar(j, 3), "€ 0.00")
Next j
------------------------------------------------------------------
Nou wil ik weten als ik vanaf Lbl14 tot en met Lbl20

Is het mogelijk dat als ik Lbl14-20 niet uit rij 3 haal, maar uit rij 2 bijvoorbeeld.

Hoe doe ik dit?

Alvast bedankt voor het antwoord.

 

[edmoor]

Ik kan hier niet echt uit halen wat je bedoeling is.
Je rijnummers worden bepaalt door j = 1 To 13
Beter plaats je een voorbeeld document.

 

[VenA]

Reageer eerst op jouw vorige vragen. Het plaatsen van code tussen codetags lukt ook nog steeds niet? Dit linkje nog steeds niet gelezen?https://www.helpmij.nl/forum/announcement.php?f=5

 

[Bosswilly]

Bij deze het excellijstje.Bekijk bijlage 331473

 

[VenA]

En wat is nu de vraag? Er is geen geen Lbl14-20 te vinden. Haal je rij en kolom niet door elkaar. Waarom staat er overal =#REF! in kolom B?

 

[Bosswilly]

Sorry, je hebt gelijk, maar ik wil labels 14 tot en met 20 aanmaken en deze niet naar kolom 3 kijken, maar naar kolom 2. Dit moeten de andere bedragen zijn. Hoe doe ik dit.

 

[VenA]

Erg veel informatie geef je niet. Zorg ervoor dat de structuur van het formulier correct is. Bij een verkeerde sortering van de tabel klopt er anders niets meer van de gegevens in het formulier.

Met een logische naamgeving van de objecten in het formulier een een sorteersleutel in de tabel kan je elk object vullen.

 

[Bosswilly]

Klopt, dit 1e is al het leed wat het verleden heet.

Voor dit jaar doe ik er niks maar aan en ben aan het ombouwen voor volgend jaar.

Hartelijk dank voor het antwoord.:thumb: