doppelklick Macro+ Datum
27.12.2017 19:37:39
kevikev
Hallo liebe Gemeinde,
ich benutze folgenden Code um bei Doppelklick eine 1 zu erzeugen. Bei erneutem Klick verschwindet die 1.
Wie muss der Code aussehen, wenn gleichzeitig das Datum 2 Zellen weiter links von der 1 eingetragen und auch wieder gelöscht werden soll ( wenn die 1 nicht da ist)?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
With Application
.Cursor = xlNorthwestArrow
BooleanCellDoubleClick Target, [tblAufgabenliste[[Erledigt]]], Cancel
.Cursor = xlDefault
BooleanCellDoubleClick Target, [tblAufgabenliste[[Fix]]], Cancel
.Cursor = xlDefault
End With
End Sub
Private Sub BooleanCellDoubleClick(rTarget As Range, rValidRange As Range, Cancel As Boolean)
On Error Resume Next
Application.CellDragAndDrop = False
If rTarget.Cells.Count > 1 Then Exit Sub
If Intersect(rTarget, rValidRange) Is Nothing Then Exit Sub
If Len(rTarget) Then
rTarget = vbNullString
Else
rTarget = 1
End If
Cancel = True
End Sub