Clever-Excel-Forum

Seiten: 1 2 3 4 5 6 7 8 9

(05.07.2015, 17:38)RPP63 schrieb: [ -> ]Hallo zusammen!

Auch auf die Gefahr hin, dass ich mich gleich unbeliebt mache, dennoch meine Meinung:

Ihr seid mittlerweile auf Seite 6, der TE ist, ich zitiere:

Zitat:Ich stege durch diese ganzen Codes sowieso nicht durch......bin Anfäääänger!

... und benötigt diesen Code beruflich.
Mit Verlaub: Ich scheine den Sinn eines Forums bisher fehlinterpretiert zu haben!
Und ich stelle mir die Frage, was Mike im laufenden Betrieb macht, wenn es "richtige" Probleme gibt?

(Will heißen, Mike: Nimm ein paar € in die Hand und lasse einen Dienstleister Deiner Wahl verantwortlich wirken!)

Just my two cents

Ralf

Hallo Ralf,

du hast sicher recht. Wenn ich jetzt selber eine Firma hätte und die passende Software auf den Firmen PC`s hätte, würde ich mir einen Dienstleister dafür holen.
Doch ich habe keine Firma!
Ich bin nur angestellter und mein Chef ist zu geizig, sich das Modul Einkauf für sein Programm dazu zu kaufen.

Hier wurde alles bisher schriftlich und in Akten abgeheftet und für mich war das zu umständlich.
Ich habe erst angefangen mir selber etwas zusammen zu stricken und dank Atilla?s Hilfe, ist es für mich jetzt noch einfacher, den Überblick zu behalten, was ich alles eingekauft habe und was noch offen ist.

Dieses liegt also in meinem privatem Interesse, das diese Mappe einwandfrei funktioniert.
Ich habe idees, was diese haben soll und versuche hier, mit Hilfe vieler Excel-Experten, diese komfortable umzusetzen.
Und dafür bin ich vielen hier Dankbar.

Grüße Mike

Hallo Andre,

sorry, das ich mich jetzt erts melde.
War das ganze Wochenede verhindert.

Ich versuche deine Lösungsvorschläge heute Abend im einzubauen.
Komme ich irgendwie nicht weiter, versuche ich wieder genau zu schildern.

Dir auf jeden Fall, vielen Dank für deine Mühe.

Gruß
Mike

(05.07.2015, 17:13)schauan schrieb: [ -> ]Hallo Mike,

ja, das Problem sind, wie ich vermutet habe, die fehlenden Angaben Deiner Bestellnummer im Vergleich zur Nummer beim Lieferanten. Ich hatte bei meinem Versuch Artikel gewählt, die hatten zufälligerweise keine Bezeichnung. Entsprechend muss man ja nach der Artikelnummer suchen .... Bei der Lieferantennummer fehlt ja nicht nur die Rollengröße, sondern auch eine weitere Angabe:
gewählte Nummer:
151110-14-13/1000
Nummer beim Lieferanten:
151110-14
Hier fehlt also auch die -13
Die 151110-22-13 hast Du übrigens doppelt drin. Ich habe die Artikelnummern auf A&K mal sortiert, dabei ist mir das aufgefallen. Ob's noch mehr sind, weiß ich nicht.

Ich habe mal folgenden Ansatz versucht:

1. Füge auf Einkauf_Etiketten zwischen B und C eine Spalte ein und blende sie gleich wieder aus.
2. Im code von TextBox3_KeyDown das Füllen der Zusatzspalte einarbeiten.
Die erste Zeile ist noch original, nach dem Kommentar kommt die Verarbeitung von ComboBox1 dazu und die folgenden Spaltennummern werden um 1 erhöht.

Code:
.Cells(lngZ + 1, 2) = CStr(Me.ComboBox2.Text) 'Ab hier eine Spalte mehr .Cells(lngZ + 1, 3) = Me.ComboBox1.Text .Cells(lngZ + 1, 4) = Me.ComboBox3.Text .Cells(lngZ + 1, 5) = CDbl(Me.TextBox3.Text) .Cells(lngZ + 1, 6) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 23) .Cells(lngZ + 1, 7) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 4) .Cells(lngZ + 1, 8) = .Cells(lngZ + 1, 4) * .Cells(lngZ + 1, 6)
Ebenso muss in diesem Makro alles, was sich auf Spalten >= 3 im Blatt Einkauf_Etiketten bezieht, um 1 erhöht werden.
Oben die Zeilen habe ich eingefügt.......aber an welchen Stellen muss ich um 1 erhöhen?

3. Im Code von CommandButton2_Click sind diese Änderungen nötig. Die Suche geht nach der Artikelnummer in der ausgeblendeten Spalte auf das Blatt A&K, SPalte A

Code:
x = Application.Match(wks.Cells(i, 3).Value, wksL.Columns("A:A"), 0)
Ebenso muss in diesem Makro alles, was sich auf Spalten >= 3 im Blatt Einkauf_Etiketten bezieht (wks, nicht wksL!), um 1 erhöht werden.
Auch hier habe ich die Zeile mit dem x so abgeädert, wie du beschrieben hast.........aber wo ich was um 1 erhöhen muss, sorry....weiß ich leider nicht.

Ich suche weiter umd zu vesrtehen, was du meinst.

4. In den Eigenschaften der Listbox musst Du ColumnCount um 1 erhöhen.

Probier das mal aus. Eventuell reicht das noch nicht ganz.

Hallo Andre,

fast alle Angaben von dir habe ich umbesetzt.

Im Code CommandButton2-Click, bin ich mir nicht ganz sicher, ab wo ich um 1 erhöhen soll?

Code:
For i = 10 To lngL

            x = Application.Match(wks.Cells(i, 3).Value, wksL.Columns("A:A"), 0)

            .Cells(lngZ, 1) = wks.Cells(1, 3) 'Bestellnummer

            .Cells(lngZ, 2) = wks.Cells(1, 7) 'Datum

            .Cells(lngZ, 3) = wks.Cells(i, 2).Value    'Art.-Nr. Liefrant

            .Cells(lngZ, 4) = wksL.Cells(x, 1).Value  'Art.-Nr-Mic

            .Cells(lngZ, 5) = wks.Cells(4, 3) 'Lieferant

            .Cells(lngZ, 6) = wks.Cells(i, 3) 'Bezeichnung

            .Cells(lngZ, 7) = wksL.Cells(x, 14).Value   'Rollengröße

            .Cells(lngZ, 8) = wksL.Cells(x, 3).Value  'Währung

            .Cells(lngZ, 9) = wksL.Cells(x, 4).Value  'EK-Stück

            .Cells(lngZ, 10) = wksL.Cells(x, 6).Value  'Inhalt große Box

            .Cells(lngZ, 11) = wksL.Cells(x, 8).Value  'Box Preis groß

            .Cells(lngZ, 12) = wks.Cells(i, 4).Value  'Bestellmenge

            .Cells(lngZ, 13) = wks.Cells(i, 7).Value  'Bestellsumme

            .Cells(lngZ, 17) = wks.Cells(3, 3) 'Ref.-Name

            lngZ = lngZ + 1

         Next i

      End With

Gruß Mike

Hallo Mike,

erst mal noch was zur Einführung. Ich hätte als "ausgeblendete" Spalte auch irgendeine weiter rechts nehmen können, die das Formular nicht beeinflusst. Dass ich Spalte C genommen habe, ist eher prinzipiell, weil in B die Nummer beim Lieferanten steht. Das macht nun natürlich etwas mehr Arbeit, die bei der anderen Variante nicht nötig wäre.

Durch das Einfügen vor der Spalte C = 3 rückt selbige eins nach rechts. Aus C = 3 wird also D = 4.
Nun muss man schauen, wann die Eintragungen erfolgen und was sich dabei ändert. Es werden einige Eintragungen in SPalte C vorgenommen. Da diese nun ausgeblendet ist, würdest DU sie nicht mehr sehen. Z.B.

.Cells(lngZ, 1) = wks.Cells(1, 3) 'Bestellnummer

oder weiter unten der Lieferant und die Bezeichnung. Wenn das Datum wieder in die rechte Spalte soll, muss aus der 7 eine 8 gemacht werden. usw..

Das muss eventuell im Makro von der TextBox3 beachtet werden, im Makro der Combobox und dann muss man schauen, ob noch andere Makros betroffen sind.

Ich finde es auf jeden Fall gut, dass Du so versuchst, das nachzuvollziehen und nicht auf das exportierte Modul gewartet hast :28:

Hallo Mike,

du solltest die Erklärung von André mal ganz langsam lesen und dann deinen Code anschauen. Betrachte auch die Kommentare im Code. In welcher Spalte zum Beispiel steht die Bestellmenge vor dem Spalteneinfügen und wo danach? Wie lautet Zuweisung im Code und wie muss sie danach lauten?

Hallo Andre, Hallo Stefan,

danke für euer Verständnis und Geduld. :)

Jetzt ist mir dabei aufgefallen......das in meine Bestellung, wenn ich diese aus der Maske abschließe, vom Einkaufsformular in das Blatt "Umsätze Lieferanten"
abgespeichert wird???!! Ist doch so, oder?

Während meiner Bestellung, wenn ich noch nicht als PDFspeichern gehe und von der Maske aus, in das Einakufsformular schaue, passt alles.
Das übertragen von er Maske zum Formular, also der Code, arbeiten richtig.
Doch wenn ich abspeichere, nimmt er die Artikelnummer vom Lieferanten und die ist in der EInkaufsliste von A&K in der Spalte R.

Diese sagt nichts über die Rollenlänge und wenn beim zurückschreiben der Bestellung diese wieder aufgerufen wird, hat er nur die Artikelnummer vom Lieferanten und nimmt den ersten gefundenen Wert im Blatt "A&K" aus Spalte W.

Liege ich da richtig?

Das mit der Spalte einfügen und ausblenden habe ich versatnden und auch an der von dir vorgeschlagenen Stelle eingefügt. :)

Ich habe unten im Code die Änderungen gemacht, die du "Andre" mir im letzten Beitrag erklärt hast.
Ist das auch korrekt so?

Code:
With Sheets("Umsätze Lieferanten")

         lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

         For i = 10 To lngL

            x = Application.Match(wks.Cells(i, 3).Value, wksL.Columns("A:A"), 0)

            .Cells(lngZ, 1) = wks.Cells(1, 3) 'Bestellnummer

            .Cells(lngZ, 2) = wks.Cells(1, 8) 'Datum

            .Cells(lngZ, 3) = wks.Cells(i, 2).Value    'Art.-Nr. Liefrant

            .Cells(lngZ, 4) = wksL.Cells(x, 1).Value  'Art.-Nr-Mic

            .Cells(lngZ, 5) = wks.Cells(4, 3) 'Lieferant

            .Cells(lngZ, 6) = wks.Cells(i, 4) 'Bezeichnung

            .Cells(lngZ, 7) = wksL.Cells(x, 14).Value   'Rollengröße

            .Cells(lngZ, 8) = wksL.Cells(x, 3).Value  'Währung

            .Cells(lngZ, 9) = wksL.Cells(x, 4).Value  'EK-Stück

            .Cells(lngZ, 10) = wksL.Cells(x, 6).Value  'Inhalt große Box

            .Cells(lngZ, 11) = wksL.Cells(x, 8).Value  'Box Preis groß

            .Cells(lngZ, 12) = wks.Cells(i, 5).Value  'Bestellmenge

            .Cells(lngZ, 13) = wks.Cells(i, 8).Value  'Bestellsumme

            .Cells(lngZ, 17) = wks.Cells(3, 4) 'Ref.-Name

            lngZ = lngZ + 1

         Next i

Änderungen in den Zeilen Datum - Art.-Nr. Lieferant - Lieferant - Bezeichnung - Bestellmenge - Ref.-Name

Zu deiner Aussage: Das muss eventuell im Makro von der TextBox3 beachtet werden, im Makro der Combobox und dann muss man schauen, ob noch andere Makros betroffen sind.

Da mus ich noch nachsehen, ob ich da etwas finde?
Wenn nicht, muss ich noch einmal nachfragen. ;)

Vielen Dank.

Grüße Mike

Hallo Andre,

mmmh......er werde da wohl noch etwas falsch gemacht haben, denn den Code den ich mit meinen Änderungen hier rein gesetzt habe, war wohl falsch,
An Spalte D im Einkaufsformular für Etiketten, trägt er komplett falsche Werte ein.

Ich habe die Änderungen im Code hinter der Userform "Etiketten Bestellung" zum CommandButton2_Click() gemacht

War ich da überhaupt richtig?

Deine letzte Aussage: Ich finde es auf jeden Fall gut, dass Du so versuchst, das nachzuvollziehen und nicht auf das exportierte Modul gewartet hast [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Gibt es denn schon ein fertig exportiertes Modu? Blush

:05:

Ich bin immer noch nicht weiter mit diesem Problem und muss hier Bestellungen damit tätigen.
Meine Umstzlisten für diesen Lieferantenm passen dann nicht. :(

Grüße Mike

Ich mische mich nochmal ein, Mike!
Ich hoffe doch wohl sehr, dass Du Dein bisheriges Produktivmodell nicht Deinem Hobby hier geopfert hast?! :20:
Bedenke: Selbst wenn es SCHEINBAR einmal stabil laufen sollte, gibt es nur einen, der dafür zur Verantwortung gezogen wird ...
... und das ist sicherlich nicht derjenige, der hier im Forum die meisten Antworten gegeben hat!

Ich hoffe aufrichtig, dass Du nicht so blauäugig warst und bist!
(wenngleich mich folgendes Zitat aufhorchen lässt)

Zitat:Ich bin immer noch nicht weiter mit diesem Problem und muss hier Bestellungen damit tätigen.

Gruß Ralf

Hallo Mike,

hier ist erst mal das exportierte Bestellformular. Wenn Du es auspackst, dann bekommst Du zwei Dateien. Du kannst das Etikettenbestellformular in Deiner Datei löschen und dann dieses importieren.

Ich dachte erst, dass es mit der Übertragung der Rollengröße ein Problem gibt, aber dann habe ich gemerkt, dass an der entsprechenden Stelle der Kommentar nicht stimmt. Dort steht Rollengröße, gemeint ist aber die Artikelgruppe.

Das Suchformular kommt gleich noch.

Seiten: 1 2 3 4 5 6 7 8 9

Mike4711

Mike4711

Mike4711

Mike4711

schauan

Steffl

Mike4711

Mike4711

RPP63

schauan