einfügen -Makro per Doppelklick erweitern
12.02.2013 14:20:41
mike49
nachfolgendes Makro fügt mit Doppelklick bestimmte Uhrzeiten in die Zellen der Spalten ein:
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("B3:B1000"), Range("C3:C1000"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 2, "Urlaub", "1/2 Urlaub")
Else
Target = ""
End If
End If
End Sub
Ich möchte dies nun so abändern, dass bei Doppelklick in der A-Spalte (beginnend bei A3) das aktuelle Datum eingefügt wird.
Gruß
mike49