Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der ZielZelle wieder entfernt wird. Klappt auch.
Leider steigt er aber aus, wenn ich allgemein Zellen oder eine Zeile löschen will und zwar wegen dem lse Zweig. Hat da jemand eine Lösung?
Public Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich, RaBereich2 As Range, RaZelle, RaZelle2 As Range
Set RaBereich = Range("R7:R2000")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
Set RaBereich2 = Range("Q7:Q2000")
Set RaBereich2 = Intersect(RaBereich2, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each RaZelle In RaBereich
With RaZelle
If RaZelle.Value "" Then
Target.Offset(0, -2) = "OK"
Target.Offset(0, -2).Font.Color = vbBlue
Else
Target.Offset(0, -2) = "" 'DAS IST DAS PROBLEM WENN ICH z.B EINE ZEILE LÖSCHE
End If
End With
Next RaZelle