Office: VBA - Zellinhalt löschen,wenn in einer Zelle ein Datum steht

Hallo,

ich habe eine Tabelle mit 10 Spalten. In Spalte 7 kann ein Datum geschrieben werden, oder dies kann leer sein. Wenn es leer ist, ist in Spalte 8 manuell das Wort "wartet" ausgefüllt worden. Wenn in Spalte 7 nun ein Datum geschrieben wird, soll das Wort "wartet", sprich der Zellinhalt, gelöscht werden. Dies soll aber ausschliesslich geschehen, wenn dieses Wort "wartet" in der Zelle steht, und nicht wenn ein anderes Wort, eine Zahl o.ä. darin ist.

Könnte mir jmd sagen wie ich das mittels VBA für meine Tabelle bewerkstelligen kann?! Ich möchte keine Formel oder so haben, da ich da die Sorge habe, dass mir diese jmd unbeabsichtigt überschreibt.

Danke.

Mightymagic

 

Hallo!

z.B so.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
  Set bereich = Range("G1:G100")
   For Each i In bereich
     If IsDate(i.Value) And i.Offset(0, 1).Value = "Wartet" Then
        i.Offset(0, 1).Value = ""
     End If
  Next i
End Sub

Dieser Code Überprüft wo in dem Bereich G1:G100 ein Datum steht. Sollte eine Spalte weiter rechts auch wartet stehen wird dieser Inhalt gelöscht.

 

Danke klappt wunderbar.