Datumkiezer

[gast0660]

Beste dch welkom op het forum:thumb:
Ik zal eens kijken wat ik voor U kan betekenen.

 

[gast0660]

Hoi,
In bijlage.
Bij mij werkt het.

 

[dch]

Beste gast0660,

Bij mij werkt het nu ook voor deze cellen. Heel erg bedankt.

Ik heb echter een vereenvoudigd bestand gestuurd. Er dienen nog een aantal data in het document te komen. Ik heb de formule aangepast, maar wanneer ik de cellen aanklik die ik extra toegevoegd heb, blokkeert mijn bestand. Ik kan niets meer doen behalve sluiten via taakbeheer. Ik heb onderstaande formule gebruikt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B6:B8,H4,C36,C43,C44:C46")) Is Nothing Then
LeftPos = ActiveCell.Left
Wdth = ActiveCell.Width
TopPos = ActiveCell.Top
Kalender.Left = LeftPos + Wdth
Kalender.Top = TopPos
Kalender.Show
End If
End Sub

Heb ik ergens een fout gemaakt?

Groetjes

 

[gast0660]

Hoi dch, neen je hebt nergens een fout gemaakt.
Alleen C43,C44:C46 is een aaneengesloten bereik, dus C43:C46 is voldoende.
Er gaat ergens iets mis met de positiebepaling en de kalender verdwijnt van uw scherm, daarom loopt het zaakje vast.
Test volgende code, normaal gezien is je probleem daarmee opgelost.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B6:B8,H4,C36,C43:C46")) Is Nothing Then
LeftPos = ActiveCell.Offset(, 2).Left
TopPos = 120 ' hier kan je wat mee spelen naargelang je de kalender hoger of lager wilt zien verschijnen.
Kalender.Left = LeftPos
Kalender.Top = TopPos
Kalender.Show
End If
End Sub

 

[VenA]

Zitten we hier niet in iemand anders draadje? Is niet netjes.
Het probleem kan ik niet reproduceren dus maak een eigen vraag aan met een correct voorbeeld.

De code kan wel iets netter maar doet functioneel hetzelfde.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B6:B8,H4,C36,C43:C46")) Is Nothing Then
  Kalender.Left = Target.Left + Target.Width
  Kalender.Top = Target.Top
  Kalender.Show
  Cancel = -1
End If
End Sub

 

[gast0660]

@Vena
Klopt

Zitten we hier niet in iemand anders draadje?

Maar het is een newbie, ik wilde niet zeuren.
Zijn code stond ook niet tussen codetags

 

[dch]

Mijn probleem is opgelost! Bedankt!