Wer kann mir bitte helfen.
In meiner Tabelle habe ich im Bereich I3:I29 Eingabezellen sobald ich mit den Cousortasten, Maus oder Entertaste die nächste Zelle aktiviere, soll der letzte eingegebene Wert in I3:I29 gelöscht werden.
Gruß Metin
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 And Not Intersect(Target, [i3:i29]) Is Nothing Then
Application.EnableEvents = False
.ClearContents
Application.EnableEvents = True
End If
End With
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..