Office: Mehrere Labels gleichzeitig verändern

Guten Morgen,

ich habe versucht für meine Freundin einen Adventskalender in Excel zu erstellen (Ist zwar schon etwas spät dafür, ist allerdings ein Schulprojekt von ihr).
In einer Tabelle ist für jeden Tag jeweils der Pfad für ein Bild hinterlegt. In einer UserForm sind 24 Labels untergebracht. Bei allen Labels ist als caption die jeweilige Zahl (1 bis 24) eingetragen. Auf click auf das jeweilige Labelfeld wird folgender Code ausgeführt:

bild = Cells(13, 2).Value
With Label_13
.Caption = ""
.Picture = LoadPicture(bild)
.Enabled = False
End With

Über einen Button in der Userform soll alle Labels wieder in den Urzustand, also als Caption eine Zahl, kein picture und enabled =true, versetzt werden. Bisher habe ich das 24mal für jedes Label geschrieben. Wie kann ich das vereinfachen? Z.B. als for...next schleife von 1 bis 24. Aber das klappt irgendwie nicht, denn ich bekomme die einzelnen Label nicht angesprochen. Ich muss immer den Namen des Labels eingeben (Label_1 bis Label_24). *entsetzt

:)

 

Hallo Jan

For I=1 to 24
controls("Label" & I).caption =I
Next I

 

Danke, das funktioniert schonmal. Aber für das Label will ich auch noch enable auf tru setzten und und das bild löschen. Wie bringe ich da jetzt noch with mit ein?

 

Hallo Jan,

ich würde mal vermuten genauso wie in Deinem ersten Beitrah

.Picture = ""
.Enabled = True

 

So habe ich es versucht, aber das geht nicht.

For i = 1 To 24
With Controls("Label_" & i)
.Caption = i
.enable = True
.Picture = LoadPicture("")
End With
Next i

 

Hallo Jan,

ich baue das jetzt nicht nach.

 

Hallo Jan,

warum ".Enabled = False" das hat bei mir zufolge das das Bild nicht angezeigt wird. Folgender Code klappt bei mir Fehlerfrei. Mit der o.g. Einschränkung

Code: