wie kann ich mit einem Makro erreichen, dass im Bereich F9:AJ13 durch Doppelklick in eine Zelle der Buchstabe U eingefügt und durch neuerlichen Doppelklick ggf. wieder entfernt wird?
Gruß
mike49
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F9:AJ13")) Is Nothing Then
Cancel = True
If Target = "U" Then
Target = ""
Else
Target = "U"
End If
End If
End Sub