"Dé grootste en gratis computerhelpdesk van Nederland"
-
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.
date picker
- Onderwerp starter appie36
- Startdatum
- Status
Dat staat ook zo in de vreemd opgezette code.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = [COLOR="#FF0000"]Range("C2:C5")[/COLOR]
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
CalendarFrm.Show
End If
End SubDat het een vreemde code is zou best kunnen, eerst werkte het bij dubbelklik en elke cel. Daar kon ik niks mee, ik heb zelf wat opgezocht en aangepast zodat ik dan bepalen in welke cellen het wel of niet werkt. Officieel zal het wel op een ander manier of volgorde moeten, geen idee.
Jack Nouws
Terugkerende gebruiker
- Lid geworden
- 16 apr 2008
- Berichten
- 1.396
niks moet alles mag...
Code:
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:C5")) Is Nothing Then CalendarFrm.Show
End Sub
[/FONT]
- Status
