Spalte auf Wertänderungen überprüfen
15.06.2021 13:24:43
Sven1403
bestimmt eine simple Sache. Ich will in einer Tabelle Spalte P bis S überprüfen. Sobald ein Nutzer ein "x" in einer von den Spalten reinschreibt, sollen mögliche "x" Werte aus den anderen Spalten gelöscht werden. Dies soll natürlich nur in der jeweiligen Zeile passieren, wo der Nutzer gerade Daten reinschreibt.
Ich habe es für eine Zeile hingekriegt, jedoch steh ich jetzt auf den Schlauch wie man das dynamisch für die ganze Spalte macht. Also wenn Nutzer z.B. in P52 ein "x" eingibt, sollen nur mögliche "x" Eingaben in Q52, R52 und S52 gelöscht werden. Dies natürlich für sämtliche Zellen in den Spalten.
Hier mein bisheriger Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sheet = Worksheets("blabla")
If Target.Address = "$P$2" Then
If Target.Value = "x" Then Sheet.Range("Q2,R2,S2").ClearContents
End If
If Target.Address = "$Q$2" Then
If Target.Value = "x" Then Sheet.Range("P2,R2,S2").ClearContents
End If
If Target.Address = "$R$2" Then
If Target.Value = "x" Then Sheet.Range("P2,Q2,S2").ClearContents
End If
If Target.Address = "$S$2" Then
If Target.Value = "x" Then Sheet.Range("P2,Q2,R2").ClearContents
End If
End Sub