Office: (Office Version unbekannt) Zelle leeren, wenn auf in einer andere Zelle auf sie verwiesen wird

Hallo
Ich habe folgende Aufgabe zu lösen:
Ich habe in der obersten Zeile eine Reihe von Terminen, die ich gemäss Verfügbarkeit an Interviewteilnehmende, die in Zeilen darunter stehen, vergeben möchte. Jeder Termin kann aber nur einmal vergeben werden.
Am besten mit dem angehängten Beispiel-Sheet erklärbar (das tatsächliche hat sehr viel mehr Termine):
Ich möchte beispielsweise Teilnehmer:in 1 den Termin aus Zelle F1 vergeben, würde also in Zelle A2 "=F1" eintragen. Nun soll in den Moment, in dem ich den Verweis auf F1 erstelle, der Termin in F1 "verschwinden", damit er nicht fälschlicherweise noch einmal vergeben wird.
Hat jemand eine Lösung für das Problem?
Vielen Dank schonmal und viele Grüsse
Julia

 

Hi Julia,

das geht nur mit VBA.
Dazu folgenden Code ins Codemodul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range
    If Target.Column = 1 Then
        If Target.HasFormula Then
            Set rngZelle = Target.Precedents
            Application.EnableEvents = False
            Target.Value = Target.Value
            rngZelle.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

Sobald in Spalte A eine Formel eingetragen wird, ermittelt der Code, auf welche Zelle sich die Formel bezieht. Dann wird das Formelergebnis in seinen Wert umgewandelt und die Zelle mit dem Ausgangswert geleert.

---

 

Liebe Karin
Vielen Dank für die schnelle Hilfe. Leider funktioniert es nicht, muss ich im VBA-Editor noch etwas einstellen, nachdem ich das Modul mit dem oben stehenden Code erstellt habe?

 

Karin hat nichts von Modulerstellung gesagt. Das Codemodul des Tabellenblatts existiert immer:

Rechtsklick Blattreiter - "Code Anzeigen" - dort einfügen

 

Danke euch ganz herzlich, jetzt klappts :-)