ligge til

En lille Userform kan svæve over arket. Ved klik på en celle overføres dennes værdi til Userformen, hvor du så kan angive hvad der skal lægges til/trækkes fra.
Sådan kunne man gøre det...

ved hvilken kode jeg skal taste i userform

et lille øjeblik.....

Send evt. en mail (adresse under min profil) så returneres hele filen.

Kode i regneark/ThisWorkBook:
=============================

Private Sub workbook_activate()
    Load UserForm1
    UserForm1.Show 0
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Target = "" Then
        UserForm1.TextBox1 = 0
    Else
        UserForm1.TextBox1 = Target
    End If
   
    Cancel = True
   
    UserForm1.celleAdresse = Target.Address
    UserForm1.TextBox2.SetFocus
End Sub

Kode i Userform:
===============
Public celleAdresse
Private Sub CommandButton1_Click()                  'plus
    beregn 1
End Sub
Private Sub CommandButton2_Click()                  'minus
    beregn -1
End Sub
Private Sub beregn(faktor)
    If Me.TextBox1 <> "" And Me.TextBox2 <> "" Then
        Me.TextBox3 = TextBox1 + TextBox2 * faktor
    End If
End Sub
Private Sub CommandButton3_Click()                  'clear
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
End Sub
Private Sub CommandButton4_Click()                  'ok
    ActiveWorkbook.ActiveSheet.Range(celleAdresse) = Val(Me.TextBox3)
    CommandButton3_Click
End Sub

tak for det hurtige svar. jeg prøver den lige

Et svar iflg. aftale

Kunne man evt. "bare" trykke F2 og derefter +200

Ja, hvis det er en formel - ellers skal = også indsættes.

Hej Supertekst
Jeg har fundet ud af hvad det var der drillede mig, det var at jeg havde en makro liggende i min makroprojektmappe som lavede nummer

Ok...