hier soll nun Im Blatt "Programm" die Zellen c4:c33 gelöscht werden,
wenn im Blatt Eingabe-Verbaut(active Blatt)im RABereich (oben defeniert)
ein "x" eingetragen wird.
müste doch diesen Code nur umbastel, leider weis ich nicht wie, bitte um Hilfe
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies *
'* 13.10.11 *
'* erstellt von HajoZiplies@web.de *
'* www.Hajo-Excel.de
Dim RaBereich As Range ' Variable Bereich
Dim RaZelle As Range ' Variable Zelle
Dim lngZ As Long ' Zeile der Zelle
' nur die Zellen prüfen die im überwachten Bereich liegen
Set RaBereich = Intersect(Range("H4:I33"), Target)
' falls nicht gefunden wird Sub verlassen
If Not RaBereich Is Nothing Then
' Reaktion auf Zellveränderung abschalten
Application.EnableEvents = False
' Schleife über die geänderten Zellen des überwachten Bereichs
For Each RaZelle In RaBereich
lngZ = RaZelle.Row
' Hier brauche ich den neue Code-schnipsel
' hier soll nun Im Blatt Programm Zellen c4:c33 gelöscht werden,
' wenn hier im Blatt Eingabe-Verbaut(active Blatt)im RABereich (oben defeniert)
' ein "x" eingetragen wird.
End If
Next RaZelle
' Reaktion auf Zellveränderung einschalten
Application.EnableEvents = True
End If
Set RaBereich = Nothing ' Variable leeren
End Sub
Gruß Matthias