Office: (Office 2016) Wenn dann Zelle löschen

Hallo,

ich bin neu hier und freue mich auf Eure Hilfe

Ich arbeite gerade an einer Tabelle um Veranstaltungen abrechnen zu können.

Hierzu trage ich die einzelnen Veranstaltungspunkte und deren Kosten auf Tabellenblatt 1 ein und muss dann in Tabellenblatt2 (ÜBernachtungen) und Tabellenblatt3 (Teilnahmen) nur ein X in die Zelle des jeweiligen Teilnehmers setzen um bestimmte Werte zu ermitteln.

Hierzu sind die Teilnehmernamen untereinander gelistet.. d.h. das X betrifft immer den jeweiligen Teilnehmer.

Jetzt ist es leider so, dass ein X z.B. in Tabellenblatt2/F1 das X in Tabellenblatt3/AZ1 verhindern soll. Mit anderen Worten, setze ich in Tabellenblatt2/F1 ein X muss es in Tabellenblatt3/AZ1 gelöscht werden. Steht kein X in Tabellenblatt2/F1 kann ich es aber setzen.

Hier wäre eine Fehlermeldung in der Zelle Tabellenblatt2/F1 nett, da man dann sofort sieht... "ah, da ist ein X in Tabellenblatt2/F1".. die Meldung ist aber nicht entscheidend.

Nun zur Frage:

Kann man das über eine Formel realisieren, oder muss man dafür VBA verwenden... wenn ja, wie müsste so ein Script aussehen?

Danke für Eure Hilfe im voraus :)

Gruß

System

 

Hola,

per Formel kannst du das nicht realisieren. Ohne VBA ginge das allenfalls so, dass du in dn jeweiligen Zellen eine Datenprüfung anlegst. Du gehst z.B. in die Zelle AZ1 von Tabellenblatt 2, Daten - Datenüberprüfung - Benutzerdefiniert

Code:

=Tabelleblatt2!F1<>"x"

Jetzt kannst du in AZ1 nur ein X setzen, wenn in F1 von Blatt 2 keines steht.
Das ganze dann natürlich auch umgekehrt.

Alles andere ist meiner Meinung nach nur mit VBA möglich - leider nicht mein Gebiet.

Gruß,
steve1da

 

Hi,

anke für den Tip.. der ist schon echt gut.. würde mir wohl auch erstmal reichen :)

Eine VBA-Lösung würde vermutlich noch n Tick konfortabler sein, da Deine Formel-Lösung das X ja nicht rauslöscht, sondern nur verhindert das man eins reinschreibt..

D.h. die Tabelle muss immer 100% clean sein, bevor man die Eingaben beginnt

 

Hi,

das kannst du mit folgenden beiden Codes lösen:

- für Tabelle2

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Column = 6 Then
        If UCase(Target.Cells(1)) = "X" Then
            If Worksheets("Tabelle3").Cells(Target.Row, 52) = "X" Then
                MsgBox "Schon auf Tabelle3 eingetragen"
                Target.Cells(1) = ""
            End If
        End If
    End If
End Sub

- für Tabelle3

Code:

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Column = 52 Then
        If UCase(Target.Cells(1)) = "X" Then
            If Worksheets("Tabelle2").Cells(Target.Row, 6) = "X" Then
                MsgBox "Schon auf Tabelle2 eingetragen"
                Target.Cells(1) = ""
            End If
        End If
    End If
End Sub

Bis später,
Karin