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 - Ausblenden aller Tabellenblätter außer X

    in Microsoft Excel Hilfe
    VBA - Ausblenden aller Tabellenblätter außer X: Guten Morgen, ich bin ziemlicher VBA Neuling und habe aktuell Probleme mit einer Datei, die ich entwickelt habe. Zu der Datei: Es handelt sich um Daten, auf die lediglich ein bestimmter...

  3. Kamera in Excel einbinden und per vba Fotos erstellen

    in Microsoft Excel Hilfe
    Kamera in Excel einbinden und per vba Fotos erstellen: Kamera in Excel einbinden Hallo, ich suche einen Code für eine UserForm, mit der ich die integrierte Kamera des WinPC in der UserForm anzeigen lassen kann und davon ein Bild sichern kann.

  4. Liste aller Comboboxen im Sheet

    in Microsoft Excel Hilfe
    Liste aller Comboboxen im Sheet: Hallo allerseits, Ich möchte alle Comboboxen eines Worksheets mit VBA auslesen und finde nicht den Namen der Liste in den Sheet-Eigenschaften, in der die Comboboxen gespeichert sind. Wer weiß, wo...

  5. Pivot Tabelle: Quelle per VBA verändern

    in Microsoft Excel Hilfe
    Pivot Tabelle: Quelle per VBA verändern: Hi all, gibt es eine Möglichkeit, wie ich die Quelle einer Pivot Tabelle mit einem Klick aktualisieren kann? 1) Beispiel Quelle: [Datum_Dateiname.xlsx]Tabelle1!$A:$AA 2) Beispiel wie es je nach...

  6. Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

    in Microsoft Excel Hilfe
    Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche): Hallo zusammen, ich arbeite mit einer Excel-Arbeitsmappe, die mehrere Tabellenblätter enthält. Jedes Blatt dokumentiert bestimmte Vorgänge, und die Struktur der Daten ist in allen Blättern...

  7. 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"),...

  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