AW: Zelleintrag nur per Doppelklick
Matthias
Hallo Andre,
Du hast nicht angegeben, in welchen Zellen die Zeit eingetragen werden soll und wo keine andere Änderung außer per Doppelklick erlaubt sein soll...
Hab's jetzt mal als Konstante angegeben:
Const DeinBereich = "A1:A10"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, Range(DeinBereich)) Is Nothing Then
Application.EnableEvents = False
Target.Value = Time
Target.NumberFormat = "hh:mm"
Application.EnableEvents = True
Cancel = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(DeinBereich)) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Gruß Matthias