For Schleife
03.02.2020 06:29:25
Dimitri
Bis jetzt war ich recht gut mit Suchen, aber jetzt komme ich einfach nicht weiter.
Habe auf Userform F1 einmal 13 Labels mit Name l2604-l2905 und weitere 13 Labels mit Name b1 bis b13
Ich will einfach Caption von ersten auf die zweiten übertragen mit For Schleife.
Hab bis jetzt dass zusammen gebastelt aber es will nicht so richtig. Checke nicht was ich falsch mache.
On Error Resume Next
For x = 1 To 13
For y = 604 To 905
F1.Controls("b" & x).Caption = F1.Controls("l2" & y).Caption
If F1.Controls("b" & x).Caption = F1.Controls("l2" & y).Caption Then
GoTo nx
End If
Next y
nx:
Next i