Datum automatisch

[malsines]

Kan datum niet wissen

Beste forum,
Ik heb een vraagje over datum invoeren. Als ik een datum invoer, kan ik het niet wissen. Om te wissen moet ik altijd minimaal 2 cellen selecteren om te wissen. Omdat mijn datum invoer met een vba code werkt, hoef ik alleen een cijfer in te vullen 1 t/m 31 (dd). VBA code vult de rest automatisch in ( dd-mm-jjjj). Weet iemand mischien hoe ik dit kan oplossen.

 

[edmoor]

Werkt hier prima.
Ik vul 31 en wordt er een complete datum ingevuld.
Als ik dan weer in die cel ga staan en druk op de Del toets is de datum weg en de cel weer leeg.

 

[malsines]

Raar dat ie wel werkt bij jou. want wat ik ook doe, hij werkt niet bij mij. Kan het aan office365 liggen?

 

[edmoor]

Ik heb ook Office365.

 

[malsines]

Dan weet ik het niet. werkt niet bij mij

 

[edmoor]

Welke cel op welk blad gebruik je voor de test?

 

[malsines]

Bij blad JAN, cel F6.
ik vul 1 in, krijg ik "vrijdag 1 januari 2021"
als ik op DELETE druk, krijg ik "donderdag 31 december 2020".
Als ik 2 cellen selecteer, kan ik het wissen.

Ik heb dit probleem bij elke tabblad

 

[edmoor]

Daarom dus altijd precies aangeven wat en waar.
Bij F6 op het blad Jan zie ik hetzelfde probleem.

Maak er eens dit van:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    [COLOR="#008000"]'On Error Resume Next[/COLOR]
    With Application
        .EnableEvents = False
            If Not Intersect(Target, Range("F6:F65")) Is Nothing And Len(ActiveSheet.Name) = 3 Then
                If Target.Count = 1 Then
                    Target = IIf(Target.Value = 0, "", DateSerial(Range("D2"), Cells(1, 1), Target.Value))
                End If
            End If
         .EnableEvents = True
    End With
End Sub

 

[malsines]

Beste Edmoor
Heel erg bedankt,
Hij doet het

 

[malsines]

Ik heb nog iets opgemerkt. Als ik datum invoer, kan ik het niet meer ongedaan maken met ctrl Z. Kan het met de code te maken hebben. ik kan het wel wissen maar niet met ctrl Z. je kan ctrl Z gebruiken tot de datum.

 

[edmoor]

Gegevens die d.m.v. VBA zijn geplaatst komen niet in de UNDO buffer terecht.

 

[malsines]

Dankjewel voor je reactie,