Hallo VBA Profis,
ich brauche Eure Hilfe bezüglich einer Schleife.
Die Aufgabe bekomme ich ohne VBA leider nicht gelöst.
Ich habe eine sauber Datengrundlage aus einer Pivottabelle, GarantieDaten Auszug aus SAP (Beispielsdatei ist erstellt, der Upload erlaubt jedoch die Auswahl der Datei nicht, hoffe das klappt gleich noch).
Vielleicht klappt es aber auch so.
In Spalte A ab Zeile 20 stehen die Datumsangaben der letzten ca. 10 Jahre
In Zeile 19 stehen die Maschinen Seriennummern.
Der Bereich wird somit durch den letzten Eintrag in Spalte A und letzten Eintrag in Zeile 19 festgelegt.
Die 1 bedeutet ab diesem Tag gilt die Garantie und kommt aus der PivotTabelle.
Die Grundtabelle ist dank Pivot kein Problem.
Von der Schleife wünsche ich mir folgende Aufgabe.
Durchlaufe Spalte C20 abwärts bis eine 1 kommt.
Fülle die 10 Zellen darunter ebenfalls mit einer 1.
PS: Da eine Maschine ggf. erneut als Gebrauchtmaschine zurück gekauft und wieder verkauft wurde, soll diese Spalte erst verlassen werden, wenn die Spalte C am Ende ist. Ende bestimmt der letzte Eintrag in Spalte A.
Danach das gleich in Spalte D20 abwärts usw. bis in Zeile 19 keine Einträge mehr sind.
In Spalte B kann ich dann mit Summe(C20:F20) die Anzahl ermitteln, wie viele Maschinen an einem Datum in Garantie standen.
Da es deutlich mehr als vier Maschinen sind, ist die Aufgabe manuell nur sehr mühselig zu erledigen.
Überschriften in Zeile 19
Spalte A Datum, erste Maschine Spalte C
Die Garantiezeit ist real 365 Tage, aber für das Beispiel habe ich die auf 10 Tage gesetzt.
.......................Anzahl Maschinen mit Garantie...............Maschine 1.......Maschine 2....Maschine 3....Maschine4..usw
01.01.2008................................1............................................ 1
02.01.2008...............................2.......................................1durch Code..............1
03.01.2008................................3......................................1durch Code........1 durch Code...........................1
04.01.2008................................3......................................1durch Code........1 durch Code....................1 durch Code
05.01.2008................................3......................................1durch Code........1 durch Code....................1 durch Code
06.01.2008................................3......................................1durch Code........1 durch Code....................1 durch Code
07.01.2008.................................3.....................................1durch Code........1 durch Code....................1 durch Code
08.01.2008................................3......................................1durch Code........1 durch Code....................1 durch Code
09.01.2008.................................3.....................................1durch Code........1 durch Code....................1 durch Code
10.01.2008.................................3.....................................1durch Code........1 durch Code....................1 durch Code
11.01.2008..................................3....................................1durch Code........1 durch Code....................1 durch Code
12.01.2008..................................2...............................................................1 durch Code....................1 durch Code
13.01.2008..................................1........................................................................................................1 durch Code
14.01.2008..................................0.............................................................................................................................
....
10.09.2018...................................1...............................................................................................................1
usw.
Danke im Voraus und bin gespannt wer was aus dem Handgelenk schüttelt.
Gruß Marcel