doppelklick Macro+ Datum
28.12.2017 10:30:40
kevikev
vorab wünsch ich euch ein paar schöne Restfeiertage.
Nun zu meiner Frage:
Mit diesem Code erzeuge ich auf 2 Spalten per Doppelklick eine "1". Folgt erneut ein Doppelklick dann wird die "1" wieder gelöscht.
Der unterste Teil vom Code erzeugt das aktuelle Datum wenn die Zelle geändert wird.
Spalte 3 (2 links davon aktuelle Datum) und Spalte 9 würde ich aber gerne so gestalten, dass das aktuelle Datum auch wieder verschwindet, wenn die Reihe 3 bzw. 9 leer ist. Wie muss der Code dafür aussehen?
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Target.Offset(0, -2) = Date
If Target.Column = 9 Then Target.Offset(0, 1) = Date
End Sub
Anzeige