Zahlenreihe aufgliedern
Hallo,
ich habe eine Excel Datei in der ich von links nach rechts darstelle wieviele Fahrzeuge eines bestimmten Typs sich im Monat in Garantie befinden.
Das sieht dann so aus:
2 - 2 - 3 - 3 - 3 - 3 - 5 - 6 - .....usw.
Die Zeile rechnet so, das nach 24 Monaten die Fahrzeuge die nicht mehr in der Garantie sind auch nicht gezeigt werden, sprich die Reihe kommt irgendwann dann wieder bei Null an.
Was ich darunter Darstellen muss ist pro Fahrzeug eine Zeile in der der Garantie Zeitraum (24 Monate) gezeigt wird.
Sieht dann so aus:
1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - ....usw.
1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - ....usw.
1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - ....usw.
1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - ....usw.
1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - ....usw.
Wie kann ich das automatisieren?
Zum besseren verständnis hier eine Beispiel Datei. Die roten Zahlen müssten sich dann aus Zeile 1 selbst erstellen.
http://www.materialordner.de/c36gy8Be0yjp4gwI4YC2KtWuW27mcMp.html
Danke schonmal, Gruß Lefty
Antwort schreiben
Antwort 1 von Lefty04 vom 27.02.2020, 10:48 Options
PS:
habe gerade gemerkt das in meiner Frage die Reihen mit den 1'en sich nicht so darstellen lassen wie ich wollte.
Also müsst ihr euch auf jeden fall die Bsp.Datei angucken!!!
Antwort 2 von coros vom 27.02.2020, 11:48 Options
Hallo Lefty,
nachfolgendes Makro sollte das machen, was Du DIr vorgestellt hast.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.[b]Option Explicit
Sub Garantie()
Dim iCol As Integer
Dim iAnz As Integer
For iCol = 2 To 30
For iAnz = 1 To Cells(1, iCol)
Cells(iAnz + 1, iCol) = 1
Next
Next
End Sub
[/b]
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 3 von Lefty04 vom 27.02.2020, 12:27 Options
SUPER.....!
Hat sofort geklappt. Danke Danke Danke
Gruß Lefty
Antwort 4 von Lefty04 vom 27.02.2020, 12:50 Options
AARRGGGHHHH,
habe doch einen Fehler entdeckt.
so wie dein Makro läuft, ist dann das Fahrzeug das in Zeile 2 steht in der Beispiel Datei dann 29 Monate in Garantie und das Letzte in Zeile 14 nur 19 Monate.
Es müssen aber in jeder Zeile (so wie in meiner Bsp.Datei) 24 Monate Garantiezeit rauskommen.
War das verständlich?