VBA - Anhand von mehreren Suchkriterien Ergebnisse

Hallo liebe VBA Spezialisten,
ich bin VBA Anfänger und benötige eure Hilfe. Ich habe eine Exceltabelle mit 4 Reitern: Kundenliste, Lagerbestände, PLZ (Postleitzahlen) und AW_Standorte (Ausweichstandorte).
Die Aufgabenstellung ist die gewünschten Ergebnisse aus den Listen in PLZ, Lagerbestand und AW_Standorte in die Kundenliste zu übertragen.
1. Suchkriterium aus der Kundenliste ist der Kundenstandort aus Spalte D. Hier soll in der Liste PLZ anhand des Standortes der dazugehörigen Standort des Lagerbestandes aus Spalte E ermitteltet werden. Das Ergebnis soll dann in der Kundenliste Spalte E übertragen werden.
2. Suchkriterium aus der Kundenliste ist der wiederum der Kundenstandort aus Spalte D. Hier soll in der Liste AW_Standort der Ausweichstandort ermittelt und in der Kundenliste in Spalte F übertragen werden.
3. Suchkriterium aus der Kundenliste ist die Artikelnummer aus Spalte A und der bereits ermittelte Standort des Lagerbestandes aus Spalte E. Hier soll der in der Liste Lagerbestand anhand von beiden Suchbegriffen der Lagerbestand ermittelt werden und in Spalte K (Kundenliste) übertragen werden. Sollte kein Lagerbestand vorhanden sein, dann soll dort eine 0 eingetragen und die Zelle rot markiert werden. Als nächstes soll dann der Lagerbestand für den Ausweichstandort ermittelt werden der sich in der Kundenliste in Spalte F befindet. Suchkriterium sind wiederum die Artikelnummer aus Spalte A und Ausweichstandort aus Spalte F. Und zu allerletzt soll dann anhand von selben Kriterien der Lagerbestand aus allen anderen Standorten in Spalte I übertragen werden.
Ich hoffe ich habe mich verständlich ausgedrückt. Ich habe die Liste sehr klein gehalten. In der Regel müssen über 1.000 Artikelnummern, Standorte, etc. überprüft und zugewiesen werden - deshalb soll das Ganze über VBA gelöst werden.
Vorab schon mal ein Dankeschön an diejenigen die mir helfen möchten.
Beste Grüße
GG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub andere_Standorte() Dim Standort As String, Fundzelle As String, Ergebnis As String Dim Zelle As Range, Finden As Range 'Standort, Ausweichstandort etc. befüllen With Sheets("Kundenliste") .Cells(2, 5).Formula = "=IFERROR(INDEX(PLZ!E:E,MATCH(D2,PLZ!B:B,0)),""N/A"")" .Range("E2:E" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown .Cells(2, 6).Formula = "=IFERROR(INDEX(AW_Standorte!C:C,MATCH(E2,AW_Standorte!B:B,0)),""N/A"" _ )" .Range("F2:F" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown .Cells(2, 7).Formula = "=SUMIFS(Lagerbestände!$G:$G,Lagerbestände!$B:$B,$A2,Lagerbestände!$A: _ $A,$E2)" .Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown .Cells(2, 8).Formula = "=SUMIFS(Lagerbestände!$G:$G,Lagerbestände!$B:$B,$A2,Lagerbestände!$A: _ $A,$F2)" .Range("H2:H" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown End With 'Andere Standorte mit Lagerbeständen ermitteln For Each Zelle In Sheets("Kundenliste").UsedRange.Columns(1).Cells Ergebnis = "" If Zelle.Row = 1 Then 'nix Else Set Finden = Sheets("Lagerbestände").UsedRange.Columns("B").Find(Zelle.Value, LookIn:= _ xlValues, lookat:=xlWhole) If Not Finden Is Nothing Then Fundzelle = Finden.Address Do If Finden.Offset(0, -1).Value Zelle.Offset(0, 4).Value And Finden.Offset(0, -1). _ Value Zelle.Offset(0, 5).Value Then Ergebnis = Ergebnis & Finden.Offset(0, -1).Value & "[" & Finden.Offset(0, 5). _ Value & "]" & " / " End If Set Finden = Sheets("Lagerbestände").UsedRange.Columns("B").FindNext(Finden) Loop While Not Finden Is Nothing And Finden.Address Fundzelle Ergebnis = Left(Ergebnis, Len(Ergebnis) - 3) Zelle.Offset(0, 8).Value = Ergebnis End If End If Next Zelle End Sub

For Each Zelle In Sheets("Kundenliste").UsedRange.Columns(1).Cells Ergebnis = "" If Zelle.Row = 1 Then 'nix Else Set Finden = Sheets("Lagerbest?nde").UsedRange.Columns("B").Find(Zelle.Value, LookIn:= _ xlValues, lookat:=xlWhole) If Not Finden Is Nothing Then Fundzelle = Finden.Address Do If Finden.Offset(0, -1).Value Zelle.Offset(0, 4).Value And Finden.Offset(0, -1). _ Value Zelle.Offset(0, 5).Value Then Ergebnis = Ergebnis & Finden.Offset(0, -1).Value & "[" & Finden.Offset(0, 5). _ Value & "]" & " / " End If Set Finden = Sheets("Lagerbest?nde").UsedRange.Columns("B").FindNext(Finden) Loop While Not Finden Is Nothing And Finden.Address Fundzelle If Len(Ergebnis) >= 3 Then Ergebnis = Left(Ergebnis, Len(Ergebnis) - 3) End If If Ergebnis = "" Then Ergebnis = 0 Zelle.Offset(0, 8).Value = Ergebnis End If Next Zelle

Beliebteste Forumthreads (12 Monate)

VBA - Anhand von mehreren Suchkriterien Ergebnisse

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Anhand von mehreren Suchkriterien Ergebnisse

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread