Ikke overstige maksimum

ikke helt, men du kan få en fejlmelding. Du skal benytte Data-> Datavlaidering

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell(0, 1).Value > 15000 Then ActiveCell(0, 1).Value = 15000
End Sub

denne virker , hvis du går til cellen neden under, når du slår return

du kan også bruge valideringsfunktionen:
Data - Validation - Allow Whole number, less than xxx
Så kan du sætte forskellige værdier forskellige steder i arket. Men den kan ikke afrunde automatisk...

Hov, det var jo egentligt det b.hansen svarede, bare lidt uddybet...

En udvidelse til kabbak's løsning kunne være at indtaste maksimum et sted i aket og lade makroen hente det der først inden den udførte begrænsningen. På denne måde skal du ikke ændre i makroen, hvis maksimum ændres.

Hvis der er tale om forskellige maksimums i de forskellige celler bliver de noget mere besværligt.

Et alternativ kunne være at undlade programmering men i stedet indføre en ekstracelle med en simpel hvis-formel, der håndterede maksimum. Den er nemmere at ændre end en makro:

Indtastning fx i A1:A3

I B1:B3 formler a la =HVIS(A1>15000;15000;A1) og så regn videre på cellerne i  kolonnen. Hvis du ikke ønsker at folk skal kunne se ovenstående, kan du evtt skjule den pågældende kolonne.

Hvis det er forskellige celler kan dette bruges.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Cells(10, 1).Value > 15000 Then Cells(10, 1).Value = 15000
If Cells(10, 2).Value > 11000 Then Cells(10, 2).Value = 11000
End Sub
her kikker den kun på celle A10 og B10, men man kan bare udvide med flere Celler.

kabbak-> det var det jeg sagde, mere besværligt :-) Hvis det er mange celler bliver det mange linier, og hver gang du trykker Enter checkes de alle sammen igen - eller har jeg misforstået noget?

korrekt

Kabbak-> I øvrigt vel gså hver gang du klikker med musen, flytter markøren med piltaster osv.

man kan vel også ligge koden her, så bliver den opdateret når man skifter ark.

Private Sub Worksheet_Deactivate()
eller her når arket bliver aktiv.

Private Sub Worksheet_Activate()


det giver jo ikke så mange opdateringer

Men til gengæld opdager man det ikke før man forlader Arket :-[

Jeg vil fastholde at HVIS formlen i en ekstra kolonne er den simpleste og mest effektive løsning, men mon ikke vi skulle lade spørgeren selv om at vurdere det? ;-)

jo jkrons, det må vi nok hellere. For jeg vil hævde, at datavalideringen er den bedste løsning *S*

b_hansen-> Og det er jeg helt enig i, bortset fra at den ikke selv kan rette til noget tilladt.

er du kommet videre johnfrandsen?

Beklager mit fravær!!

Blot til orientering:
Jeg valgte b_hansens løsning med datavalidering (en feature jeg ikke har brugt tidligere, men som jeg kan se er meget anvendelig i mange tilfælde!)

Grunden til at jeg fravalgte de øvrige forslag er at det drejer sig om så mange kolonner at det vil være et hestearbejde at oprette/vedligeholde!

Tak for hjælpen til alle!

Mvh John