Gruppe
Ereignis
Problem
Bei einem Eintrag in Zelle B1 soll - wenn Zelle A1 nicht leer ist - der Bereich A1:B1 nach 30 Sekunden gelöscht werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If IsEmpty(Target) Or IsEmpty(Target.Offset(0, -1)) Then Exit Sub
Application.OnTime Now + TimeSerial(0, 0, 30), "DeleteContents"
End Sub
StandardModule: basMain
Sub DeleteContents()
Worksheets("Tabelle1").Range("A1:B1").ClearContents
End Sub
Sub Eintragen()
Range("B1").Value = "Hallo"
End Sub