Zelleninhalt löschen, wenn D23>0

[StefanHiemer]

Hallo 
ich habe zwar schon etwas selbst versucht und auch gegoogelt, ich komme aber nicht auf das gewünschte Ergebniss.

Ich möchte erreichen, dass die Zelleninhalte von C2:C30, E2:E30, G2:G30, I2:I30 gelöscht werden wenn in einer Beispielzelle , beispielsweise D23 etwas größeres als 0 steht.
Es stehen in diesen Zelle bisher keine Formeln. 


Ich hoffe Ihr könnt mir helfen. 

ps. meine Erfahrungen mit VBA sind leider noch ziemlich niedrig, ich habe aber vor diese auszubauen.

[Steffl]

Hallo,

meinst Du so?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("C2:C30,E2:E30,G2:G30,I2:I30")) Is Nothing Then
      If Range("D23") > 0 Then
         Application.EnableEvents = False
         Application.Undo
         Application.EnableEvents = True
      End If
   End If
End Sub

[StefanHiemer]

Ich glaub ich habe es ein bisschen blöd erklärt.

Es sollen die Zellen C2:C30,E2:E30,G2:G30,I2:I30 automatisch gelöscht werden, wenn D23>0

Aber danke für die schnelle Antwort :)

[atilla]

Hallo Stefan,

das ginge mit folgendem Code:

Code:

Private Sub Worksheet_Calculate()
 If Range("D23") > 0 Then Range("C2:C30, E2:E30, G2:G30, I2:I30").ClearContents
End Sub

Besser wäre es aber die Eingabe zu überprüfen, die das Ergebnis in D23 beeinflusst.
Denn sobald eine Berechnung stattfindet, wird der Code ausgeführt.