Supportnet / Forum / Tabellenkalkulation

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

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!!!

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.

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

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.}

SUPER.....!

Hat sofort geklappt. Danke Danke Danke

Gruß Lefty

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?

• Zugriffsverletzung
• bei sverweis die Fehlermeldung nv unterdrücken
• Formatierung Zahlen
• Vergleich von zwei Zahlenreihen in Spalten
• Diagramm