Hallo,
null Problemo, einen ActiveX-CommandButton einfügen, dann folgender Code in Dein Tabellenblattmodul am Bsp. der Zelle A1:
Option Explicit
Private Sub CommandButton1_Click()
Cells(1, 1).Value = Cells(1, 1).Value & "I"
End Sub
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then _
Cells(1, 1).Value = Left$(String:=Cells(1, 1).Value, _
Length:=Len(Cells(1, 1).Value) - 1)
End Sub
Gruß,
|