Hi!
Ich habe folgendes Problem:
Aus einer UserForm sollen Werte an ein Arbeitsblatt übergeben werden. Zu diesem Zweck habe ich dort Labels eingerichtet.
Ich würde die Labels gerne über eine Schleife beschriften, die in etwa so aussieht:
For Each MyControl In Bericht.Controls
If TypeName(MyControl) = "Label" Then
If InStr(MyControl.Name, "Label_Wert") "ungleich" 0 Then
iNr = iGetObjectNumber(MyControl.Name)
Set oinstancesofLabels(iNr) = MyControl
MyControl.Caption = Wert(iNr)
End If
End If
Next MyControl
Das funktioniert leider nicht.
Hat jemand eine Idee?!?!?!?!?
Grüsse
Max