Avatar billede HBC Seniormester
10. april 2019 - 16:30 Der er 4 kommentarer og
1 løsning

Tilføje indtastet værdi til eksisterende værdi i samme celle ved hjælp af vba

Hej,

Jeg har et ark med en masse tal i kolonne a, b, c, d, f, g, h og i.
Jeg vil gerne, at hvis jeg markerer/aktiverer en af cellerne i disse kolonner og taster en værdi, så tillægges den indtastede værdi i cellens eksisterende værdi.
F.eks hvis A4 indeholder tallet 300 og jeg vil skrive tallet 4, når jeg aktiverer celle A4, så skal den tillægge værdien 4 til de eksisterende 300 og den nye værdi i A4 bliver dermed 304.
Ved ikke om det kan laves som en Worksheet.Change event, med en eventuel inputbox.

På forhånd tak.
Avatar billede Jan Hansen Ekspert
10. april 2019 - 17:40 #1
Hej

Prøv denne kode


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Errohandler
    If Target.Column <= 4 Or (Target.Column > 5 And Target.Column < 10) Then
        Target.Value = InputBox("Indtast værdi:") + Target.Value
    End If
Errohandler:
    On Error GoTo 0
End Sub


Jan
Avatar billede HBC Seniormester
10. april 2019 - 20:19 #2
Hej Jan,
Fungerer næsten efter hensigten, men ville gerne at jeg kan markere en celle uden, at min inputbox kommer frem.
Tænkte, at den kunne ville aktiveres, når jeg aktiverer(dobbelt klikker) en celle.
Avatar billede Jan Hansen Ekspert
10. april 2019 - 20:29 #3
prøv

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

End Sub
Avatar billede HBC Seniormester
10. april 2019 - 22:25 #4
1000 tak for hjælpen 👍
Avatar billede Jan Hansen Ekspert
10. april 2019 - 22:56 #5
Velbekomme
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester