ich habe mich gerade ein wenig verrannt und benötige mal eure Hilfe.
Hier die Kurzfassung:
Es gibt zwei Textboxen auf einem Userform: Artikelnummer und Kunde! Nach der Eingabe des Kunden soll überprüft werden, ob die eingegebene Kombi aus Artikelnummer und Kunde bereits in dem Worksheet Fertigungsmatrix vorhanden ist. In der Fertigungsmatrix stehen in Spalte A die Artikelnummern und in Spalte B der Kunde. Es kann vorkommen, dass eine Artikelnummer mehrmals vorkommt, jeweils mit anderen Kunden in Spalte B.
Nachstehend noch eine ausführliche Erklärung.
Vielen Dank für eure Unterstützung.
Hier die Ausgangssituation:
Ich arbeite an einer Datei, die Fertigungsaufträge automatisch erstellt. Da diese für Leute gedacht ist, die so gut wie keine Excel-Kenntnisse haben, wird eigentlich alles über UserForms gesteuert.
In dieser Datei ist eine Tabelle als Fertigungsmatrix hinterlegt. Dort werden die spezifischen Eigenschaften von jedem Fertigungsauftrag der jeweiligen Artikelnummer zugeordnet.
Beim Erstellen von neuen Fertigungsaufträgen gibt man die benötigten variablen Daten zusammen mit der Artikelnummer ein.
Allerdings gibt es ein Feld auf den Fertigungsaufträgen, welches nicht nur von der Artikelnummer abhängig ist, sondern auch vom Kunden. D.h. in der Fertigungsmatrix gibt es eine Zeile bspw. Artikelnummer 1234 und Kunde A, eine mit Artikelnummer 1234 und Kunde B und eine Zeile mit Artikelnummer 1234 ohne Kunden. (In der Fertigungsmatrix steht in Spalte A die Artikelnummer und in Spalte B der Kunde)
Das Problem:
Bei der Eingabe des Kunden (findet statt, wenn Artikelnummer bereits eingegeben wurde) soll nun überprüft werden, ob die Kombination aus Artikelnummer und Kunde schon in der Fertigungsmatrix vorhanden ist oder nicht.
Mein bisheriger Ansatz war es, die Artikelnummer in Spalte A zu suchen und rechts daneben zu schauen, ob der Kunde eingetragen ist! Hierbei werden allerdings nachstehende Zeilen mit der gleichen Artikelnummer von der Suche ausgeschlossen.
Private Sub ArtNo_AfterUpdate()
Dim Artikelnummer As Range
'Tabelle Fertigungsmatrix nach bereits vorhandenen Artikeln durchsuchen
Set Artikelnummer = Worksheets("Fertigungsmatrix").Range("A2:A" &
Worksheets("Fertigungsmatrix"). _
Range("A" & Rows.Count).End(xlUp).Row).Find(What:=ArtNo.Text,
LookAt:=xlWhole, LookIn:=xlValues)
'Wenn Artikelnummer bereits vorhanden ist
If Not Artikelnummer Is Nothing Then
Exit Sub
'Wenn Artikel noch nicht vorhanden ist
Else
End If
End Sub