AW: Zelle nach Eingabe wieder löschen
30.09.2015 18:53:21
ExtremeExceling
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim clearCell As Boolean
If Not Intersect(Target, Range("E:E")) Is Nothing Then
clearCell = False
With Target
Select Case .Value
Case "1"
.Offset(0, 1).Value = Format(Now, "hh:mm")
clearCell = True
Case "2"
.Offset(0, 3).Value = Format(Now, "hh:mm")
clearCell = True
Case "3"
.Offset(0, -1).Value = Format(Now, "U")
clearCell = True
Case "4"
.Offset(0, -1).Value = Format(Now, "K")
clearCell = True
Case "5"
.Offset(0, -1).Value = Format(Now, "Z")
clearCell = True
End Select
'der gewünschte Teil
If clearCell Then .Value = ""
End With
End If
End Sub
'
Private Sub Worksheet_Change(ByVal Target As Range)
' If Not Intersect(Target, Range("E:E")) Is Nothing Then
' If Target.Value = "1" Then _
' Target.Offset(0, 1).Value = Format(Now, "hh:mm")
' If Target.Value = "2" Then _
' Target.Offset(0, 3).Value = Format(Now, "hh:mm")
' If Target.Value = "3" Then _
' Target.Offset(0, -1).Value = Format(Now, "U")
' If Target.Value = "4" Then _
' Target.Offset(0, -1).Value = Format(Now, "K")
' If Target.Value = "5" Then _
' Target.Offset(0, -1).Value = Format(Now, "Z")
' End If
'End Sub