aansturing vanuit een KlasseModule

[DutchOirs]

goedemorgen,

Zit met een vraagje.

Ben iets van een ander aan het aanpassen. Kom het volgende tegen.

Heb op een UserForm (Calendrier) een Label46 staan.

Op deze Label46 staat ook een Label (J15).

Nu zou ik gaarne vanuit een KlasseModule deze J15 (Label) aan sturen.

Kan dit?

Onderstaande werkt niet.

 Me.Controls.Calendrier.Label46("J" & 15).BackColor = &HFF00FF   ' = paars.

of

Calendrier.Label46.Me.Controls("J" & 15).BackColor = &HFF00FF   ' = paars.

of

Calendrier.Label46."J15".BackColor = &HFF00FF   ' = paars.

Heeft iemand een idee?

Thanks

Dutch

 

[snb]

Kijk eens naar de kalender die ik je stuurde.

 

[DutchOirs]

Hoi snb,

Net gedaan, maar is aansturing vanuit het userform, dat werkt wel.
Maar nu vanuit die KlasseModule.

Bedoeling is een Calender die je met VBA gebruikt..

 

[snb]

Dat is wat ik je stuurde.
Een Userform bestaat alleen in VBA.
In mijn voorbeeld kun je ook dubbelklikken op iedere cel in kolom A; dat werkt ook.
In de klassemodule moet je niets, maar dan ook niets wijzigen, want je weet niet wat een klassemodule is.

 

[DutchOirs]

Hoi snb,

ok, las het net op internet.

Maar deze klassemodule ondervangt een gebeurtenis (actie) en geeft dan een knop op het UserForm een datum.
Dus er kan wel het een en ander.

Heb daar ook het tabelnaam kunnen vinden van de dag aanduiding (vandaag bv 5).
En bij keuze geeft ie het dag nummer weer.

Dus vandaar m'n actie om deze dag aanduidings knop een andere kleur te geven (voor aanduiding)

 

[DutchOirs]

Hier zou ik een oplossing voor moeten hebben.

  For i = 1 To 37
    If Calendrier("J" & i) = Jour Then
      MsgBox ("i =  " & i)
      [COLOR="#FF0000"]Calendrier.j& i.BackColor = &HFF00FF[/COLOR]      ' = paars.
    End If
  Next i

Geeft dus de foutmelding: Compileer fout. ongeldige kwalificatie

 

[DutchOirs]

Ben er uit..
Is gelukt.

      Calendrier.Controls("J" & i).BackColor = &HFF00FF     ' = paars.

zal hem op opgelost zetten en verder gaan op het andere draadje "invoegtoepassingen in Excel 2019"

https://www.helpmij.nl/forum/showthread.php/964559-invoegtoepassingen-in-Excel-2019

thanks snb voor het meedenken.