AW: VBA doppel klick
18.05.2016 13:05:53
ransi
HAllo Thomas,
Oder teste auch mal dies:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B55:D69")) Is Nothing Then Exit Sub
With Target.Characters(1, 1)
If .Font.Name = "Wingdings 2" And .Text = "P" Then
.Text = ""
Else:
Target.Value = "P" & Target.Value
.Font.Name = "Wingdings 2"
End If
End With
Cancel = True
End Sub
ransi