Kalender in datumveld

[Ben]

kalender klein

beste Coronas

Kijk even of deze werkt, dubbel klik op een cel dan een datum selecteren weer dubbelklikken, deze verschijnt in de cel die je dan naar onder kan doortrekken.
Groetjes Ben.

 

[Ben]

nu het bestand.

nu het bestand.

 

[popipipo]

Locatie: in het zuiden

In het zuiden kunnen ze zeker geen bijlage plaatsen

 

[popipipo]

alleen met vertraging dus

 

[Coronas]

Ben,

Jou voorbeeld werkt, maar als ik dez ein mijn sheet bijv. kalendertest.xlsb plak foutcode 424.

Snap er helemaal niets van

Alle varianten al geprobeert, .xlsb, .Show, enz enz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
kalendertest
End Sub


Coronas

 

[emields]

het probleem is dat we zonder voorbeeld niet kunnen zien wat je verkeerd gedaan hebt.

 

[Ben]

Ja Ja ben 0m 18:00 uur terug van de carnavalsloods weer een stukje afgewerkt van de wagen,pilsje gedronken dacht dat het wel ging cellen waren nog beneveld

 

[snb]

@Coro

Ook al te diep in het glas gekeken en deze over het hoofd gezien ?

https://www.helpmij.nl/forum/showth...in-datumveld?p=6369135&viewfull=1#post6369135

 

[jverkerk]

#snb
Ik vind het ook een prachtig kalendertje.
Rijst er meteen weer een vraag, in het werkblad staat een tabel en het kalendertje werkt alleen als ik op één van de datums klik, als ik de tabel groter maak kan ik op de lege cellen klikken maar dan geen reactie.
Of kan het ook zonder tabel en op een lege cel in het werkblad.
Of ik doe iets verkeerd.

 

[Coronas]

Goedemorgen,

Nog geen enkel zicht op een kalendertje.

Alles geprobeert, maar geen enkele oplossing werkt. Kan iemand iets aanpassen??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
kalendertest.Show [COLOR=#ff0000](en hier van alles geprobeert uit de aangeleverde voorbeelden)[/COLOR]
End Sub

Coronas

 

[snb]

Gebruik:

https://www.helpmij.nl/forum/attachment.php?attachmentid=372810&d=1697299766

 

[AD1957]

Mij lijkt het probleem dat de Kalender alleen opent als je daadwerkelijk in de tabel klikt.
Dan dit erbij:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.ListObjects(1)
    j = .ListRows.Count + 1 + .HeaderRowRange.Row '[COLOR="#008000"]***voor als de tabel niet begint in A1[/COLOR]
End With

If Not Intersect(Target, Cells(j, 1)) Is Nothing Then Kalender.Show
End Sub

of alles met dubbelklik

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range
With ActiveSheet.ListObjects(1)
    i = .HeaderRowRange.Row
    j = .ListRows.Count + 1 + i '[COLOR="#008000"]***voor als de tabel niet begint in A1[/COLOR]
End With

Set Rng = Range(Cells(i + 1, 1), Cells(j, 1))
  If Not Intersect(Target, Rng) Is Nothing Then
      Kalender.Show
      Cancel = True
  End If
End Sub

 

[jverkerk]

En hij kan van oktober 2018 tm oktober 2028, zou iemand dit kunnen veranderen bijv. van Januari 2022 tm januari 2035.
Waar kun je dit veranderen?

 

[HSV]

@Ad,

If Not Intersect(Target, Target.ListObject.DataBodyRange.Columns(1)) Is Nothing Then

Onderstaande zonder de 'on error resume next'.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, ListObjects(1).DataBodyRange.Columns(1)) Is Nothing Then
      Kalender.Show
      Cancel = True
    End If
End Sub

 

[AD1957]

Johan,
Kijk eens naar de eigenschappen van de Scrollbar SC_01 (min-max instellingen)

Harry,
Post 32 heb ik aangepast.

 

[jverkerk]

Hallo Ad
Daar staat 60 en -60
Weet niet precies wat dat inhoud en hoe ik de datum daarop moet toepassen.

 

[AD1957]

maak er eens 120 en -12 van, dan wordt het misschien duidelijk.

 

[jverkerk]

Ik was al bezig Ad, en gevonden.
Bedankt voor de instructie.

 

[HSV]

@Ad, #34 is voldoende.
Het maakt niet uit waar de tabel zich bevindt.

 

[snb]

@jverk

wanneer de kalender wordt getoond wordt geregeld in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Als er geen beperkingen zijn in het werkblad:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  kalender.show
  cancel=true
End Sub

Als de kalender alleen moet verschijnen voor alle invoercellen in de tabel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  if not intersect(target, listobjects(1).databodyrange) is nothing then
    kalender.show
    cancel=true
  end if 
End Sub