Ich habe in einer UF 11Label mit der Bezeichnung LbL1, LbL2, LbL3...usw.
Mit Klasse habe ich`s nicht geschafft. Mit untenstehender Schleife auch nicht.
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Dim i As Integer, sLBL As String
For i = 1 To 11
sLBL = "LbL" & i
With sLBL.Font
.Name = "Arial"
.Bold = False
.Size = 10
End With
Next
End Sub
Bei sLBL erscheint Fehlermeld. "ungültiger Bezeichner! Weisjemand wie die Schleife lauten muß, bzw. wie die Klasse auschauen soll?Danke & Grüße
Lorenz