Hallo,
null Problemo, das Umformen is auch nich immer so ganz einfach...
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A1:G1"), Cells(2, 2), Cells(3, 3))) Is Nothing Then _
If ToggleButton1.Value Then _
Cancel = True: Target.Value = Target.Value & "I"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A1:G1"), Cells(2, 2), Cells(3, 3))) Is Nothing Then
If ToggleButton1.Value Then
With Target
If .Value <> vbNullString Then _
Cancel = True: .Value = Left$(String:=.Value, Length:=Len(.Value) - 1)
End With
End If
End If
End Sub
Gruß,
|