Hallo zusammen, ich bin absoluter VBA Anfänger und komme einfach nicht weiter… Ich habe natürlich auch schon wild gegoogelt, auch hier im Forum schon einiges Quer gelesen, aber ich komme einfach nicht voran.
Problemschilderung:
Ich habe in einer Datei mehreren Kunden.
Es gibt 2 Arten von Verkäufen A und B.
Die Kunden sind untereinander wie folgt sortiert Verkauf A oder B, ,Kundenummer,Material,Tagesdatum,Verfügbarkeit.
Beispiel:
VerkaufTyp Kd.Nr. Mat.Nr. Datum Verfügbarkeit
VerkaufA 123456 123XYZ 01.01.2015 Auf Lager
VerkaufA 123456 456abc 01.01.2015 Nicht Auf Lager
VerkaufA 123456 789opq 15.03.2015 Aus dem Sortiment genommen
VerkaufA 963852 123XYZ 05.02.2015 Auf Lager
VerkaufB 123456 123XYZ 05.06.2015 Auf Lager
VerkaufB 123456 555nas 04.03.2015 Nicht Auf Lager
Ich muss in Abhängigkeit aller Faktoren einen Wert in einer separaten Zelle ausgeben, zB. die 1.
Er soll jede Zeile einzeln und nacheinander prüfen. Zuerst muss nachgeschaut werden, ob es sich um einen „VerkaufA“ handelt. Wenn es sich um einen „Verkauf A“ handelt, soll er sich anschließend die „Kd.Nr.“, die „Mat.Nr.“, das „Datum“ und die „Verfügbarkeit“ merken bzw. als Variablen deklarieren. Jetzt soll er die Tabelle nach einer Spalte durchlaufen mit einem „VerkaufB“, welcher gleichzeitig dieselbe Kundennummer, und dasselbe Material hat. Nun muss er die Werte aus den beiden Zielen erneut vergleichen: wenn das Datum von VerkaufB höher/größer/älter ist, als das von VerkaufA, dann folgt ein weiterer Vergleich. Er soll jetzt noch prüfen, ob die Verfügbarkeit von VerkaufB „Auf Lager“ ist. Wenn es „Auf Lager“ ist, soll er schauen ob die Verfügbarkeit von VerkaufA „Aus dem Sortiment genommen“ ist ODER (und jetzt kommt der größte Knackpunkt) es keine Spalte mit der Konstellation „VerkaufA+Kd.Nr.+Mat.Nr.“ gibt. Wenn das der Fall ist, dann soll er in einer beliebigen Spalte weiter rechts eine „1“ in die Zelle schreiben.
Wenn das alles nicht zutrifft, dann soll er in die nächste, untere Spalten springen und erneut von Anfang prüfen. Dies soll er solang machen, bis es keine Datensätze mehr gibt.
Ich breche mir seit Tagen hieran die Zähne aus. Ich bin blutiger VBA Anfänger und bekomme einfach nichts zu stande, was mir hier weithilft. Ich habe mehrerer Ansätze von mir bereits wieder verworfen. Kann mir hier vielleicht i.wie helfen? Ich wäre dem- oder derjenigen sehr dankbar!
VG
BaconZack