Wert in 2 Arbeitsblättern auf doppelten Wert prüfen und in einem löschen.

[Hunterle]

Moin und Hallo,

ich stehe vor folgendem Problem.
In meiner Excel Datei habe ich 2 Arbeitsblätter.

Blatt1 = "Bestand" 

hier sind in 

Spalte B die Farben Blau, Rot, Schwarz hinterlegt
Spalte C immer 10stellige Nummern eingetragen

in Blatt2 = "Ausgabe"

wird nun in Spalte C eine der 10stelligen Nummern eingetragen, so soll geprüft werden, welche Nummer in "Bestand" damit identisch ist und aus dem Blatt "Bestand" auch gelöscht werden.

Richtig genial wäre es, wenn ich dann auch noch aus Spalte B die Farbe an das Blatt2 "Ausgabe" übergeben bekomme, ohne dies selbst eintragen zu müssen.

Es soll also nach Eingabe auf den doppelten Wert im anderen Tabellenblatt geprüft und dieser dort gelöscht werden und im besten Falle soll auch die Farbe aus dem Blatt "Bestand" in das Blatt "Ausgabe" übergeben werden, ebenso Spalte B.

Vielen Dank für Eure Hilfe.

[Klaus-Dieter]

Hallo,

mit VBA sicher kein Problem, darf es so etwas sein?

[Hunterle]

Ich kann auch VBA einsetzen. Das wäre nicht das Problem. 
Nur am umsetzen scheitert es wenn noch 👍

[Klaus-Dieter]

Hallo,

du müsstest allerdings etwas mehr über deine Datei verraten, am besten, du stellst eine Beispieldatei ein.

[slowboarder]

Hi

Lege im Blatt Ausgabedas Change-Event-Makro an
.
Da muss dann folgender Code rein,:

Code:

Dim Zelle as Range 
Dim ZelleBestand as range

If not intersect(Target, Range("C:C")) is nothing then
    For each Zelle in intersect(Target, Range("C:C")).Cells
        If len(Zelle.value) = 10 then
           Set ZelleBestand = Sheets("Bestand").Columns(3).Find(Zelle.Value, lookat:=xlwhole, lookin:=xlvalues)
            If not ZelleBestand is nothing then
                   Application.Enableevents = False
                   Zelle.Offset(0, -1) = ZelleBestand.Offset(0, -1)
                   ZelleBestand.EntireRow.Delete
                   Application.EnableEvents = True
             End if 
         End if
    Next
End if

Gruß Daniel

[Hunterle]

Vielen Dank für Eure Lösungen und Ansätze.
Ich habe das jetzt für mich umsetzen können.