meerdere cellen in range useform

[tsjokko]

Hallo,

Ik ben bezig met een formulier waar op diverse plaatsen een datum moet komen. Ik heb nu een kalender die opkomt in een paar cellen maar de cellen die ik nodig heb zijn niet aaneengesloten.
In het voorbeeld werkt het bij C8 t/m C12, maar hoe krijg ik de andere geelgekleurde cellen ook werkend?

Alvast bedankt,

Rick

 

[VenA]

Even de range aanpassen?

Range("c8:c12,j13,j15,etc")

Het hele object zou ik niet gebruiken omdat het in de meeste versies standaard niet meer werkt.

 

[tsjokko]

Dank, straks even proberen.
Hoe zou je dit anders oplossen?

 

[VenA]

Ik zou een gewone Userform gebruiken. Zie voorbeeldje. (met dank aan @snb)

 

[tsjokko]

Bedankt voor de moeite maar als ik dubbelklik in een cel in kolom A zie ik niets. Doe ik iets verkeerd?

Wat ik wel eerder heb gebruikt is een kalender maar dan stond er steeds een pulldownmenu pijltje rechts van de cel. Als je dit veel gebruikt ziet het er niet uit op een formulier. Dat is de reden waarom ik deze variant wilde gebruiken.

Alvast bedankt voor het meedenken,

Rick

 

[tsjokko]

Excuses, werkt nu wel. Probleempje met security op laptop werkgever.

Ziet er idd prima uit. Cel bereik werkt met dezelfde aanpassing als eerder genoemd? Zou je anders een voorbeeldregel kunnen geven met meerdere kolommen en rijen?

 

[VenA]

Kan je toch ook zelf wel?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("A4:A8,F12:F14,H18")) Is Nothing Then Kalender.Show
End Sub

 

[jkpieterse]

OM toch ook op andere cellen te kunnen dubbel-klikken om te bewerken kan je dat beter veranderen naar:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A4:A8,F12:F14,H18")) Is Nothing Then 
        Cancel = True
        Kalender.Show
    End If
End Sub

 

[tsjokko]

Ik ben nu vreselijk zoekende na jaren niets in excel te hebben gedaan.

Bedankt, hier kan ik mee verder.

Gr, Rick