Knap der insætter værdi en celle væk fra den celle man står i

I Denne_projektmappe:
Option Explicit
Private Sub Workbook_Open()
    Load UserForm1
    UserForm1.Show
End Sub

Under Userform1:
Option Explicit
Private Sub CommandButton1_Click()
    indsætBem Me.CommandButton1.Caption
End Sub
Private Sub CommandButton2_Click()
    indsætBem Me.CommandButton2.Caption
End Sub
Private Sub CommandButton3_Click()
    indsætBem Me.CommandButton3.Caption
End Sub
Private Sub indsætBem(Bemærkning)
   
    ActiveCell.Offset(0, 1).Select
    Selection = Bemærkning
   
    UserForm1.Show 0
End Sub

Hvis du vil have filen - så anvend: www.supertekst-it.dk | Kontakt
så svarer jeg og sender filen.

Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 1) = "Ok"
End Sub

Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 1) = "Fejl"
End Sub

Private Sub CommandButton3_Click()
ActiveCell.Offset(0, 1) = "IR"
End Sub

Tak store Morten, altid til hjælp.
Store tekst, tak for dit input også, har valgt store mortens løsning, da den var mest enkel.