Office: (Office 2016) Wenn in Spalte A etwas eingetragen wird, dann....

Moin zusammen,

folgendes Problem: Ich sitze in der Produktionsplanung und ich versuche eine Excel Tabelle zu erstellen für Terminverschiebungen. Das ganze läuft so ab, dass die Produktionsmitarbeiter eintragen sollen, welche Produktion sie nicht rechtzeitig fertigen können und wir in der Planung tragen Auftragsnummer ein und versenden eine Mail an den Vertrieb. So weit so gut.

Um den manuellen Aufwand so gering wie möglich zu halten, habe ich schon einiges geschafft. Ich scheitere aber gerade an einer (so scheint es mir zumindest) einfachen Idee:
Sofern in Spalte A ein neuer Eintrag erfolgt ("Produktionsnummer"), dann soll erstmals geprüft werden, ob diese Nummer schon in Spalte A existiert. Sollte diese Nummer beriets eingetragen sein, soll eine Fehlermeldung erscheinen.
Sollte der Eintrag neu sein, soll in Spalte G der Wert "neu" eingetragen werden (die Werte dazwischen sind Datenbankabfragen).
Andersherum soll die Spalte G natürlich nichts mehr enthalten, sollte der Wert in Spalte A mal wieder rausgenommen werden. Mit einer Wenn Funktion wäre das sehr simpel, wie funktioniert das im Makro?

Ich freue mich über jeden sachdienlichen Hinweise ;) :D Das würde uns sehr viel Arbeit abnehmen.
Vielen Dank vorab!

 

das geht nur per VBA.
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rafound As Range
    Set Rafound = Columns(1).Find(Target, Range("A1"), , xlPart, , xlNext)
    ' xlPart enthalten
    ' xlWhole kompletter Vergleich
    If Not Rafound Is Nothing Then
        Range("G" & Target.Row) = "Neu"
    Else
        MsgBox "schon vorhanden in Zeile " & Target.Row
    End If
    Set Rafound = Nothing
End Sub

 

Hi,

danke schonmal Hajo_Zi. Es arbeitet schon mal gut. Problem ist jetzt, dass er immer anzeigt, dass die Produktion schon existiert, nämlich in der gerade eingefügten Zeile. Wie kann das umgangen werden?
Er soll ja nur bei doppelten Werten sich melden. Aber die MsgBox mit der Anzeige, wo die bereits vorhanden ist, ist klasse!

 

Hi,

hier eine Variante, die nur ausgeführt wird wenn in Spalte A etwas eingegeben wird, bei einer Doppeleingabe wieder rückgängig gemacht und beim (späteren) Löschen eines Eintrags auch Spalte G wieder geleert wird:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngFind As Range
    Set Target = Intersect(Target, Columns(1))
    ' Eingabe erfolgt in Spalte A
    If Not Target Is Nothing Then
        ' Inhalt wurde gelöscht
        If Target = "" Then
            ' Spalte G leeren
            Target.Offset(0, 6).ClearContents
        Else
            ' suche die Eingabe in Spalte A
            Set rngFind = Columns(1).Find(Target.Value, lookat:=xlWhole)
            ' Eingabe nur einmal vorhanden
            If rngFind.Address = Target.Address Then
                ' in Spalte G Eintrag
                Target.Offset(0, 6) = "neu"
            ' Eingabe bereits vorhanden
            Else
                ' Reaktion auf Eingabe abschalten
                Application.EnableEvents = False
                MsgBox "Bereits vorhanden"
                ' Eingabe rückgängig machen
                Application.Undo
                ' Reaktion auf Eingabe wieder einschalten
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

---

 

Entschuldigung, nicht ausführlich getestet.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rafound As Range
    If Target.Column = 1 Then
        Set Rafound = Columns(1).Find(Target, Range("A1"), , xlPart, , xlNext)
        ' xlPart enthalten
        ' xlWhole kompletter Vergleich
        If Rafound Is Nothing Or Target.Address = Rafound.Address Then
            Application.EnableEvents = False
            Range("G" & Target.Row) = "Neu"
            Application.EnableEvents = True
        Else
            MsgBox "schon vorhanden in Zeile " & Rafound.Row
        End If
        Set Rafound = Nothing
    End If
End Sub

Gruß Hajo

 

Wow klasse! Das funktioniert.

Vielen lieben Dank!!!