Skriv 0 ved enter

Denne skriver 0 i den celle der bliver aktiv, i kolonne A og B, hvis der ikke står noget i forvejen.

Den skal være i arkets modul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:B")) Is Nothing Then
        If Len(Target) = 0 Then Target = 0
    End If
End Sub

Det virker ikke :-(

Jeg har 2 kolonner som der skal retuneres 0 i hvis man taster enter uden indtastninger af tal eller tekst!

Jeg har skrevet følgende i ThisWorkbook:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:B")) Is Nothing Then
        If Len(Target) = 0 Then Target = 0
    End If
End Sub

Det er cellerne fra H11 til H70 samt J11 til J70 der skal have denne funktion!

så skal den se sådan ud


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("H11:H70,J11:J70")) Is Nothing Then
        If Len(Target) = 0 Then Target = 0
    End If
End Sub

nope, den gør det bare ikke. Hvad er galt. er det i Thisworkbook det skal placeres ?

nope, det er i modulet, på det ark den skal virke på.

højreklik på arkfanen, vælg vis programkode, der skal den være.

Jeg kan ikke få det til at virke og er lidt forvirret når du skriver moduler?

Når jeg åbner mit regneark har jeg bla. følgende regneark ark1, ark2 og thisworkbook. Og så har jeg moduels 1 til 6.

Jeg har pastet din kode ind i ark1 uden det har nogen effekt?

OK, så du har sat det ind i modulet, der ligger under Ark1.

Det er også der det skal være, gå så på Ark1, hvis du så hopper imellem celler i området H11:H70 og J11:J70", så vil den sætte et 0, hvis der ikke står noget i forvejen, det gør den uanset om du trykker enter eller ej.

hvis den ikke virker der, har du måske fået de automatiske makroer slået fra, de kan startes igen, ved at du kører denne makro.

Public Sub StartAutomatiskeMakroer()
    Application.EnableEvents = True
End Sub

nix, den skriver intet. Den skal også først skrive 0 i cellen når/hvis man trykker på enter uden at indtaste noget!!

Hvad med dette  i ThisWorkbook:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If GetAsyncKeyState(13) And Target.Offset(-1) = "" Then
        Target.Offset(-1) = 0
    End If
 
End Sub

?
Test det grundigt inden du evt. beslutter dig for at bruge det!

Bemærk at den virker i alle celler på alle ark, den skal måske tilpasses som kabbak har vist.

Den virker heller ikke, får compile error!

For lige at ridse op hvad det er jeg har brug for så handler det kort og godt om 2 kolonner H11 til H70 samt J11 til J70.

Jeg vil gerne spare 0 indtastningen ved at den selv returnerer 0 i disse kolonneceller hvis jeg blot trykker på enter. Det er vigtigt at nullet vises og ikke bare efterlades tomt da 0 cellerne indgår i en sammenregning med gennemsnitudregning!!

Er der virkelig ingen ekspert der har løsningen på dette lille problem :-))

Jeg står af, hvis cellen er tom, når du går ind på den, og du så trykker på ENTER, er den stadig tom, så man kan ikke fange nogen ændring, der gør at man kan sætte et = ind.
Der er heller ikke nogen KeyPress funktion i et ark, så det dur heller ikke.

Lukker