• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datumkiezer

Status
Niet open voor verdere reacties.
Beste dch welkom op het forum:thumb:
Ik zal eens kijken wat ik voor U kan betekenen.
 
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
 
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.
Code:
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
 
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.
Code:
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
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan