ich habe folgendes VBA.
Wie kann diese verändert werden damit nach der Eingabe die Zelle in Spalte E wieder leer ist.
Würde mich über Hilfe freuen
Sven
https://www.herber.de/bbs/user/100507.txt
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
With Target
Select Case .Value
Case "1"
.Offset(0, 1).Value = Format(Now, "hh:mm")
Case "2"
.Offset(0, 3).Value = Format(Now, "hh:mm")
Case "3"
.Offset(0, -1).Value = Format(Now, "U")
Case "4"
.Offset(0, -1).Value = Format(Now, "K")
Case "5"
.Offset(0, -1).Value = Format(Now, "Z")
End Select
'der gewünschte Teil
'.Value = "" oder so wie KlausF Schrieb
.ClearContents
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