nummertje eruit halen en met iteller verhogen

[Willemwes]

Heb 10 labels geplaatst en benoemd met lbl1 tot en lbl10. Nu kan ik met de right functie het laatste cijfertje pakken. Maar via een teller en for next wil ik de caption van die labels veranderen. Weet alleen even niet meer hoe dat gaat.
For i = 2 To 10
Naam = Cells(i, 5)
Label = Right(lbl""&i), 1)) 'lbl1
Label.Caption = Naam 'dit moet lbl1 tot en met lbl10 worden
Next i

 

[Emil S]

zo misschien als het label uit de formulier set komt:

Sub LabelWijzigen()
Dim i As Integer
Dim Naam As String

' labels uit formulieren set namen staan in kolom E
With ActiveSheet
For i = 1 To 2
Naam = .Cells(i, 5)
.Labels(Naam).Caption = Naam
Next
End With

End Sub

als het er om gaat om de label naam in de tekst te krijgen dan kan het ook zo;

Sub LabelWijzigen2()
Dim Lbl As Label
' labels uit formulieren set
With ActiveSheet
For Each Lbl In .Labels
Lbl.Caption = Lbl.Name
Next
End With

End Sub

 

[OctaFish]

Ik snap je routine niet; je vult een variabele Naam via een cel, en gaat vervolgens met een vreemd loopje (right i.p.v. mid) het laatste teken er uit halen op basis van de tekst 'lbl' Als je nieuwe namen wilt genereren kan dat veel simpeler:

For i = 1 To 10
    Naam = "lbl" & i
    Label.Caption = Naam
Next i

Als je de labelwaarde wilt, uit labels die met lbl beginnen, dan doe je dat zo: Labelnr = Mid(Naam, 4)