Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Durch VBA erfolgte Eintragung nach 30 Sekunden löschen.

Gruppe

Change

Problem

Bei einem Eintrag in Zelle B1 soll - wenn Zelle A1 nicht leer ist - der Bereich A1:B1 nach 30 Sekunden gelöscht werden.

Lösung
Mit Alt+F11 in die Entwicklungsumgebung wechseln und in die genannten Module den jeweiligen Code eingeben.

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