Diese Programm soll bei Doppelklick in spalte H ein x einfügen. wenn ich doppelklicke in spalte H passiert nichts, warum?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range("H:H")) Is Nothing Then
Target = IIf(Target = "", "x", "")
Cancel = True
End If
End Sub
Danke für die Hilfe |