Office: (Office 2016) Zellen aus Spalte in Zeile vergleichen

Hallo,

mein Problem sind jetzt die ganzen Dropdowns in den Zellen die mir Formeln verhindern.
Zellbereich I37:86 und X37:86. Wenn z. Bsp. Zelle X37 den Eintrag "Korrigieren" aus dem Dropdown bekommt soll Zelle I37 gelöscht werden. Die einfache VBA-Formel auf Zellenvergleich kenne ich :

If Range("X37").Value = "Korrigieren" Then Range("I37").Value = ""

Jetzt benötige ich das für den oberen Zellbereich.

Dank und Grüße

HP

 

Hallo!

Code:

For Each z In Range("X37:X87")
    If z = "Korrigieren" Then z.Offset(0, -15).ClearContents
Next z

 

Hallo schatzi,

du machst deinem Namen alle Ehre. Ruhm und Ehre! Jetzt habe ich es eingetragen aber ich habe mit meinen suboptimalen Kenntnissen nur die Strg-C Kompetenz. Kannst du mir das bitte gangbar machen, da ich noch etwas mitverwursten muss?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$7" Then ActiveSheet.Name = Target.Value
For Each Z In Range("X37:X87")
If Z = "Korrigieren" Then Z.Offset(0, -15).ClearContents
Next Z

End Sub

Dank und Grüße

HP

 

Hallo!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
Application.EnableEvents = False
    If Target.Address = "$M$7" Then ActiveSheet.Name = Target.Value
    For Each z In Range("X37:X87")
        If z = "Korrigieren" Then z.Offset(0, -15).ClearContents
    Next z
Application.EnableEvents = True
End Sub

 

Hallihallo,

ja das war ja jetzt wohl phänomenal! Funktioniert hervorragend*****

Dank und Grüße

HP