Target bei leerer Zelle
12.06.2024 12:01:48
AndreasH86
ich würde gerne bei Änderung einer Zelle in Spalte A eine Formel in eine der nebenstehenden Zellen einfügen.
Das funktioniert soweit auch, jedoch wird die Formel nach dem Löschen des "Target" in Spalte A nicht wieder gelöscht. Mein Code schaut wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim endRowA As Long
endRowA = Cells(Rows.Count, "A").End(xlUp).Row
Set Bereich = Range("A2:A" & endRowA)
If endRowA > 1 Then
If Not Application.Intersect(Target, Bereich) Is Nothing Then
For Each Target In Bereich
If Target.Text > "" Then
With Target.Offset(0, 2)
.FormulaR1C1 = "=XLOOKUP(RC[-2],'ATPCBAR-Basis'!C[-2],'ATPCBAR-Basis'!C[-1],"""",0)"
.Formula = .Value
End With
Else
If Target.Value = "" Then
Target.Offset(0, 2).Value = ""
End If
End If
Next
End If
End If
End Sub
Mein Problem beginnt mit der Zeile
If Target.Value = "" Then
Gibt es da eine Möglichkeit, das innerhalb der Change-Prozedur zu behandeln?
Viele Grüße
Andreas
Anzeige