gibt es eine Möglichkeit den Inhalt einer Zelle zu löschen wenn in einer hinteren Zelle ein bestimmtes Wort/Wert erscheint?
Wir haben eine Übersicht und zu dem Wert in A1, wo der Standort angegeben ist, gibt es Querverweise. Die sind aber nur solange notwendig bis der Auftrag mit "Fertig" abgeschlossen wird.
Mein Wunsch wäre es das der Standort verschwindet sobald der Auftrag Fertig gesetzt ist, damit dort die nächsten angelegt werden können.
Im Anhang ein Beispiel um es etwas darzustellen.
Gibt es dafür eine Formel oder muss man das mit VBA lösen?
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target, Me.Columns("F")) Is Nothing Then Application.EnableEvents = False For Each c In Target If c.Value = "Fertig" Then Me.Cells(c.Row, 1).ClearContents End If Next c Application.EnableEvents = True End If End Sub
kein Problem, allerdings wäre es hilfreich, eine Beispieldatei zu haben, das Bildchen ist nur wenig hilfreich. Auch bei Makros braucht man Zellbezüge, die sind da nicht zu erkennen.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
wenn Du noch eine Zusatzspalte nutzen kannst, dann kannst Du auch auf VBA verzichten. Ich habe neben Spalte A noch eine Spalte "Fläche manuell" eingefügt (damit verrutscht die "Fertig-Spalte" auf J).
Formel in A2: =WENN(J2="fertig";"";B2)
Die Eingaben machst Du also in Spalte B - ausgewertet wird aber nach Spalte A.