Office: (Office 2010) VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten

Helfe beim Thema VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi Jan, dann lade doch mal eine aktuelle Mappe hoch. Bis später, Karin Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Jan1234, 9. November 2016.

Seite 3 von 3
  1. Beverly
    Beverly Erfahrener User

    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten


    Hi Jan,

    dann lade doch mal eine aktuelle Mappe hoch.

    Bis später,
    Karin
     
    Beverly, 9. Januar 2017
    #31
  2. JAN1234
    Jan1234 Erfahrener User
    Hi Karin,

    In dieser Datei ist alles enthalten, was in diesem Feed bisher 'behandelt' wurde.

    Vielen Dank nochmal für deine Zeit und Geduld!

    Beste Grüße,
    Jan
     

    Anhänge:

    Jan1234, 9. Januar 2017
    #32
  3. Beverly
    Beverly Erfahrener User
    Hi Jan,

    jetzt werden in der Ergebnistabelle die Spalten M, N und O der Tabelle1 einer einzigen Liefernummer aufgelistet und im Diagramm die kummulierten Mengen alt und neu (Spalten G und H in der Tabelle2) dargestellt - und wie soll dann die Ergebnistabelle aussehen und wie das Diagramm? Lade doch mal dazu ein Beispiel hoch, z.B. wie es konkret für das Datum 13.07.2016 Ventil aussehen soll.

    Bis später,
    Karin
     
    Beverly, 9. Januar 2017
    #33
  4. JAN1234
    Jan1234 Erfahrener User

    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten

    Hi Karin,

    Ich habe nochmal eine neue Mappe erstellt, mit zwei neuen Makros.
    Eins davon ist das Färben-Makro, wo du mir auch schon geholfen hattest, zur besseren Übersicht.
    Das zweite Makro ist ein von mir erzeugtes Makro. Es holt sich die 'Kum. Qty. ALT', das bedeutet es holt sich die Kum. Qty.´s von der Lieferabrufnr. die in der Spalte I steht (passend zum Datum). Die Details findest du im Code.

    Nun konkret:
    So sieht die Mappe zunächst aus:
    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten Forum 1.jpg
    Nun bräuchte ich eine Oberfläche wo der Nutzer ein Datum eingibt. z.B. den 13.07.16.
    Das Programm müsste nun das Datum 11.07.16 der Lieferabrufnr. 10 (Datum dass in der Vergangenheit am nächsten dran ist) finden.

    Anschließend müsste das Programm diese LAnr. in die Spalte I einfügen:
    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten Forum 2.jpg

    Daraufhin muss das Makro 'Kum_Qty_alt' starten und die passenden Kum. Qty. aus dem Lieferabruf 10 heraussuchen.

    Anschließend müsste nur noch wieder die Erstellung des Graphen usw. durchlaufen.

    Ich hänge nochmal die Datei Excel_Forum_Version2.1 an, die das Beispiel "Eingabe: 13.07.16" genau zeigt.

    Vielen, vielen Dank für deine Unterstützung!

    Beste Grüße,
    Jan
     

    Anhänge:

    Jan1234, 16. Januar 2017
    #34
  5. Beverly
    Beverly Erfahrener User
    Hi Jan,

    also ich kann bei den Diagrammen irgendwie keinen Unterschied zu den bisherigen erkennen, die Daten sind nachwievor dieselben - aber genau auf den Unterschied zu den bisherigen Diagrammen kommt es an, wenn ich dir helfen soll.

    Bis später,
    Karin
     
    Beverly, 16. Januar 2017
    #35
  6. JAN1234
    Jan1234 Erfahrener User
    Hi Karin,

    Ach verdammt. Mein Fehler. Ich habe nämlich vergessen die Deltas auch neu zu berechnen.
    Ich hänge nun nochmal eine Datei an: Excel_Forum_Version2.2
    Da ist das Delta berechnen nun mit drin und ich habe die Makros mal nummeriert in Schritten (A-D)

    Nun gibt es andere Kum. Mengen und die Deltas unterscheiden sich auch:
    Vergleich zwischen Abruf 12 und 11:
    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten Bildschirmfoto 2017-01-16 um 17.06.47.jpg

    Vergleich zwichen Abruf 12 und 10:
    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten Bildschirmfoto 2017-01-16 um 17.28.15.jpg

    Vom Aufbau der Graphen soll alles gleich bleiben bzw. wie bisher.

    Beste Grüße,
    Jan
     

    Anhänge:

    Jan1234, 16. Januar 2017
    #36
  7. Beverly
    Beverly Erfahrener User
    Hi Jan,

    tut mir Leid, da muss ich passen - ich verstehe absolut nicht was du machen willst und in der Mappe gibt es bei den Diagrammen nach wie vor keinerlei Unterschied zu den Diagrammen in der vorhergehenden Mappe:

    Mappe 2.1


    Tabelle2[TABLE="width: 1"]
    <colgroup><col style="font-weight:bold; width:40px;"><col style="width:97px;"><col style="width:97px;"><col style="width:97px;"><col style="width:97px;"></colgroup><tbody>[TR="bgcolor: #99CCFF"]
    [TD] [/TD]
    [TD]F[/TD]
    [TD]G[/TD]
    [TD]H[/TD]
    [TD]I[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]4[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]Liefer-datum[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]Kumulierte Menge Neu[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]Kumulierte Menge ALT[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]DELTA[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]5[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]06.02.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]64[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]68[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-4[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]6[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]30.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]61[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]2[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]7[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]23.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]59[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]8[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]16.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]55[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-4[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]9[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]09.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]52[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-7[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]10[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]02.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]49[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-10[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]11[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]19.12.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]45[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]46[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]12[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]12.12.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]43[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]46[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]13[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]05.12.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]40[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]46[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]14[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]28.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]37[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]38[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]15[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]21.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]34[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]34[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]16[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]14.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]31[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]31[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]17[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]07.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]27[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]28[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]18[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]31.10.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]24[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]24[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]19[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]24.10.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]21[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]22[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]20[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]17.10.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]19[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]19[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    </tbody>[/TABLE]
    [TABLE]
    <tbody>[TR="class: style21"]
    [TD="align: left"]Excel-Inn.de[/TD]
    [/TR]
    [TR="class: style21"]
    [TD="align: left"]Hajo-Excel.de[/TD]
    [/TR]
    [TR]
    [TD="align: left"]XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007[/TD]
    [/TR]
    [TR]
    [TD="align: left"] Add-In-Version 24.04 einschl. 64 Bit[/TD]
    [/TR]
    </tbody>[/TABLE]



    Mappe 2.2


    Tabelle2[TABLE="width: 1"]
    <colgroup><col style="font-weight:bold; width:40px;"><col style="width:97px;"><col style="width:97px;"><col style="width:97px;"><col style="width:97px;"></colgroup><tbody>[TR="bgcolor: #99CCFF"]
    [TD] [/TD]
    [TD]F[/TD]
    [TD]G[/TD]
    [TD]H[/TD]
    [TD]I[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]4[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]Liefer-datum[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]Kumulierte Menge Neu[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]Kumulierte Menge ALT[/TD]
    [TD="bgcolor: #FFFFFF , align: center"]DELTA[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]5[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]06.02.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]64[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]68[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-4[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]6[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]30.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]61[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]1[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]7[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]23.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]59[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-1[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]8[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]16.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]55[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-5[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]9[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]09.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]52[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-8[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]10[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]02.01.2017[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]49[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]60[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-11[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]11[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]19.12.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]45[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]46[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-1[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]12[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]12.12.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]43[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]46[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-3[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]13[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]05.12.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]40[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]46[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-6[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]14[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]28.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]37[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]38[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-1[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]15[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]21.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]34[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]34[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]16[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]14.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]31[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]31[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]17[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]07.11.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]27[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]28[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-1[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]18[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]31.10.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]24[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]24[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]19[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]24.10.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]21[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]22[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]-1[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #99CCFF, align: center"]20[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]17.10.2016[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]19[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]19[/TD]
    [TD="bgcolor: #FFFFFF , align: right"]0[/TD]
    [/TR]
    </tbody>[/TABLE]
    [TABLE]
    <tbody>[TR="class: style21"]
    [TD="align: left"]Excel-Inn.de
    [/TD]
    [/TR]
    [TR="class: style21"]
    [TD="align: left"]Hajo-Excel.de[/TD]
    [/TR]
    [TR]
    [TD="align: left"]XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007[/TD]
    [/TR]
    [TR]
    [TD="align: left"] Add-In-Version 24.04 einschl. 64 Bit[/TD]
    [/TR]
    </tbody>[/TABLE]




    Der einzige Unterschied ist Spalte I - aber die hat keinerlei Einfluss aus das Diagramm.

    Bis später,
    Karin
     
    Beverly, 16. Januar 2017
    #37
  8. JAN1234
    Jan1234 Erfahrener User

    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten

    Guten Morgen Karin,

    Ich glaube ich verstehe wo das Kommunikationsproblem besteht :-)
    Bitte vergleiche nicht die beiden Excel Arbeitsmappen.
    Ab jetzt bitte nur noch die Version 2.2 öffnen und verwenden.

    Wenn du dort in die Tabelle1 gehst, siehst du, dass im ersten Block neben der 12 (Spalte G) die 10 künstlich von mir hinzugefügt wurde (Spalte I).
    Ich habe die 10 dort manuell eingetragen und anschließend das Makro A (Kum. Qty. für Sp I heraussuchen) gestartet, dann Makro B (Deltas), dann Makro C (Färben) und dann Makro D (DiaTab erstellen).
    Damit entsteht dieses Ergebnis in Tabelle2:
    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten Bildschirmfoto 2017-01-16 um 17.28.15.jpg

    Ursprünglich steht ja in Tabelle1 im ersten Block neben der 12 (Spalte G) die 11 in Spalte I.
    Wenn du sie da wieder einträgst und dann die Makros A-D durchlaufen lässt entsteht widerum dieses Ergebnis in Tabelle2:
    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten Bildschirmfoto 2017-01-16 um 17.06.47.jpg

    Es sind also nicht beide Varianten gleichzeitig in einer Exel-Datei zu sehen. Man muss die Datenbasis immer noch manuell ändern und die Makros durchlaufen lassen um zu einem neuen Ergebnis zu kommen.

    Weißt du jetzt was ich meine?

    Bitte gib' die Hoffnung nicht auf! :-)

    Beste Grüße,
    Jan
     
    Zuletzt bearbeitet: 17. Januar 2017
    Jan1234, 17. Januar 2017
    #38
  9. Beverly
    Beverly Erfahrener User
    Hi Jan,

    die beiden Anhänge kann man nicht öffnen - aber das nur am Rande.

    Ich habe dein Ziel jetzt so verstanden:

    1. es wird (irgendwie, was noch zu klären wäre - z.B. InputBox oder TextBox in UserForm) ein Datum vorgegeben
    2. nach diesem Datum (bzw. dem nächstjüngeren?? falls nicht gefunden) soll in Spalte ?? gesucht werden
    3. wenn ein passendes Datum gefunden wurde, dann soll in Spalte G nach der betreffenden Abrufnr. geschaut und diese Nummer in Spalte I in jede Zelle eingetragen werden, parallel zu allen Zellen mit der höchsten Abrufnr. der Spalte G

    Und was dann weiter - deine bereits vorhanden Makros?

    Bis später,
    Karin
     
    Beverly, 17. Januar 2017
    #39
  10. JAN1234
    Jan1234 Erfahrener User
    Hi Karin,

    Ich bin echt froh, dass du nochmal geantwortet hast :-)
    Ich habe die Anhänge nochmal neu eingefügt. Ich hoffe nun kann man sie abrufen.

    zu 1.: genau. Ich weiß nicht was sich da am besten eignet. Auf jeden Fall soll es die Eingabe eines Datums sein.
    zu 2.: genau. Suche nach diesem Datum (gleich oder nächstjünger oder "Fehlermeldung", falls nichts gefunden) in Spalte H. Nacheinander die Blöcke "ablaufen".
    zu 3.: korrekt
    4.: genau, Start der Makros A-D

    Wichtig wäre auch noch, dass das ganze Prozedere auch bei den anderen Bauteilen angewandt wird.
    Also dass auch bei der Buchse und beim Lager die ermittelte Lieferabruf Nr. in Spalte I des ersten Blocks des Bauteils eingetragen wird.

    Für die Erstellung eines Graphen ist also weiterhin immer nur der jeweils erste Block eines Bauteils relevant.
    Die weiteren Blöcke dienen nur als Datenmasse um den ersten Block mit Informationen zu füttern, sozusagen.

    Allerbeste Grüße,
    Jan
     
    Jan1234, 17. Januar 2017
    #40
  11. Beverly
    Beverly Erfahrener User
    Hi Jan,

    nachdem ich bereits begonnen hatte einen Code zu erstellen (weshalb ich erst jetzt antworte) ist mir folgendes aufgefallen: die Anzahl an Daten ist unterschiedlich je Datum in Spalte H, z.B. Ventil 31.08.2016 sind 16 Einträge, für Ventil 26.07.2016 dagegen sind es 25 Einträge - wie sollen diese miteinander verglichen werden?

    Bis später,
    Karin
     
    Beverly, 19. Januar 2017
    #41
  12. JAN1234
    Jan1234 Erfahrener User
    Hi Karin,

    Oh super! Ich bin echt gespannt was du da wieder zauberst.

    Die kleiner werdende Anzahl ist bedingt durch die fortschreitende Zeit.
    LAnr. 11 wurde am 26.07. erstellt, LAnr. 12 am 31.08.. In dieser Zwischenzeit wurden aber Lieferungen getätigt.
    Der Lieferplan verkürzt sich also nach und nach.

    Genau genommen, muss ich allerdings sagen, ist es so, dass die Lieferpläne am Anfang ganz kurz sind, dann immer länger werden und zum Schluss wieder immer kürzer.
    Denn zu Beginn sind Lieferdaten nur ganz grob angegeben. Dann werden sie nach und nach immer detaillierter und der Lieferplan wird länger.
    Am Schluss "überholt" dann die Zeit die Lieferungen und die Pläne werden wieder kürzer.

    Deshalb ist der Vergleich auch etwas schwierig.
    Ich habe mir dazu aber Gleichungen überlegt, die du in dem Makro 'Kum Qty' findest.
    Da werden die Lieferdaten sozusagen verheiratet. Mit anderen Worten: den Daten (Datum) des aktuellsten Lieferabrufs werden die passenden Qty. (in Bezug auf das Datum) des anderen Lieferabrufs zugeordnet.
    Also den Vergleich der Liefermengen in Bezug auf die Daten (Datum) erledigt eigentlich schon mein Makro.

    Ich hoffe ich bin jetzt nicht zu sehr ins Detail gegangen, aber ich möchte auf keinen Fall etwas unbeantwortet lassen.

    Beste Grüße,
    Jan
     
    Jan1234, 19. Januar 2017
    #42
  13. Beverly
    Beverly Erfahrener User

    VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten

    Hi Jan,

    das einzige was ich machen kann wäre, dass ich die Startzeile für den zu kopierenden Bereich ermittle - diese musst du dann als Basis für dein Makro für das "Umschreiben" der Anzahl verwenden. Gleichzeitig wird auch die erste Zelle jedes Artikelblocks ermittelt - da hin muss kopiert werden.


    Code:
    Sub Vergleiche()
    Dim lngLetzte As Long     ' letzte belegte Zeile insgesamt
    Dim lngZiel As Long         ' Schleifenvariable und erste Zeile eines Artikelblocks
    Dim lngStart As Long       ' Variable für die Startzeile mit dem Datum welches >= dem Vergleichsdatum ist
    Dim lngEnde As Long       ' Variable für die letzte Zeile des aktuellsten Blocks jedes Artikels
    Dim lngZeile As Long       ' Schleifenvariable
    Dim lngAnzahl As Long    ' Variable für die letzte Zeile jedes Artikels
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    Application.ScreenUpdating = False
    
    For lngZeile = 2 To lngLetzte
        'die folgende Zeile mit coundIf-Funktion fuehrt ab 13-stelligen Zahlen zu Problemen
        'lngEnde = lngZeile + Application.CountIf(Columns(2), Cells(lngZeile, 2)) - 1
        'stattdessen:
        For lngEnde = lngZeile To lngLetzte
            If Cells(lngEnde + 1, 2) <> Cells(lngEnde, 2) Then Exit For
        Next lngEnde
        lngAnzahl = lngZeile + Application.CountIf(Range(Cells(2, 5), Cells(lngLetzte, 5)), Cells(lngZeile, 5)) - 1
        For lngZiel = lngAnzahl To lngEnde + 1 Step -1
            If Cells(lngZiel, 8) >= Range("R1") Then
                lngStart = lngZiel + 1
                Exit For
            End If
        Next lngZiel
        
        MsgBox lngStart  '<== dies ist die Startzeile für den zu vergleichenden Bereich
        MsgBox lngZeile  '<== dies ist die jeweils erste Zeile eines Artikelblocks
        
        lngZeile = lngZeile + Application.CountIf(Columns(1), Cells(lngZeile, 1)) - 1
    Next lngZeile
    Application.ScreenUpdating = True
End Sub

    Als Datum, mit welchem verglichen werden soll, habe ich einfach mal Zelle R1 genommen. Der Code enthält keine Prüfung, ob R1 ein Datum enthält.

    Deine Codes habe ich mir nicht weiter angeschaut, aber bedenke, dass du die Originaldaten des jeweils 1. Teilblocks irgendwo zwishenspeichern musst, wenn du den Ursprungszustand wieder herstellen willst.


    Bis später,
    Karin
     
    Beverly, 19. Januar 2017
    #43
Seite 3 von 3
Thema:

VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten

Die Seite wird geladen...

  1. VBA Graph erstellen mit wechselnden unterschiedlich langen Abschnitten - Similar Threads - VBA Graph erstellen

  2. VBA in einer Zeile zu lang

    in Microsoft Excel Hilfe
    VBA in einer Zeile zu lang: Moin, mein VBA Code ist für eine Zeile zu lang. Kann mir einer helfen wie ich den auf 2 Zeilen aufteilen Kann? arrSchuhDaten = Array(Range("A6"), Range("F6"), Range("J6"), Range("A7"),...

  3. Listbox wird nicht breiter, Schriftgrösse ändert sich

    in Microsoft Excel Hilfe
    Listbox wird nicht breiter, Schriftgrösse ändert sich: Hallo, ich habe ein Formular dessen Breite ich mit der Maus ändern kann. Im Formular habe ich einen Rahmen und darin eine Listbox deren Breite an die Formularbreite angepasst wird....

  4. Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

    in Microsoft Excel Hilfe
    Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch: Hallo zusammen, erstmal danke für all die Tipps und Kniffe, die ich ohne eigenen Thread gefunden und gelernt habe. Leider finde ich mein Thema nirgendwo... Aktuell habe ich zwei Spalten mit...

  5. Per Hyperlink ausgeblendetes Blatt einblenden

    in Microsoft Excel Hilfe
    Per Hyperlink ausgeblendetes Blatt einblenden: Hola ins Forum, ich bräuchte mal wieder eure Hilfe. Ich habe ein Tabellenblatt das mir als Register dient und wo Hyperlinks eingefügt sind um auf das dazugehörige Blatt zu springen. Diese Blätter...

  6. Bilder über VBA Größe und DPI ändern für Webshop

    in Microsoft Excel Hilfe
    Bilder über VBA Größe und DPI ändern für Webshop: Hallo Excel Spezialisten, Ich habe mir eine recht aufwendige Tabelle gebastelt, aus der ich Daten für meinen Webshop generiere und in einer .csv bereitstelle. Es werden neue Preislisten...

  7. VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

    in Microsoft Word Hilfe
    VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen: Hallo zusammen, ich habe eine Word-Vorlage mit Platzhaltern, in die ich mit VBA Daten aus einer Excel-Datei einfüge (in eine Excel-Zeile schreibe ich alle Daten für ein neues Word-Dokument). So...

  8. Excel Graph mittels Activex Checkbox steuern - VBA Code

    in Microsoft Excel Hilfe
    Excel Graph mittels Activex Checkbox steuern - VBA Code: Hallo zusammen, der Inhalt meiner Excel Graphen ändert sich in Abhängigkeit von dem, was in zwei von einander abhängigen Dropdowns (Kombinationsfelder- Form Control) selektiert wird. Hierbei...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden