Probleme mit bestehendem Code

[Mike4711]

Hallo Steffl,

Im Blatt "A&K" sind die Artikel richtig angelegt.

Spalte "A"   Artikel Nr.MIC   256110-124-13/500     Spalte "R" Artikel Nr.Lieferant

auch wenn ich dn Artikel  256110-124-13/1000 nehme

Im Blatt "Bestellübersicht" soll immer nur die Artikelnummer des Lieferanten abgespeichert werden, das macht er ja.

Im Blatt" Umsätze Lieferanten", speichert er nicht richtig die Artiklenummern ab, alsso Spalte C und D.

Dort speichert er schon lange nicht die Artikelnummer von MIC in dei Spalte D.

Warum und wann das sich so entwickelt hat, weiss ich nicht......mir ein Rätsel?

Ich habe mal versucht im Blatt "Umsätze Lieferanten" in Spalte D den fehlenden Zusatz /1000 oder auch -13/1000 einmzugeben, ob er dann nach der Suche im Blatt "Einkauf Etiketten" alles richtig einträgt......aber auch das geht nicht.


Das was du in der Mappe (Blatt"Umsätze Lieferanten") siehst, ist das was abgespeichert wird.


Hast du denn mal ein paar Bestellungen gemacht und während der Bestellung in der Userorm frmEtikettenbestllung vor Abschluss der Bestellunng auf dem Button "Einkaufsformular" gedrückt?  Du kannst in das Bestellformular schaue und dort wird alles richtig eingetrage,

Nur wenn die Bestellunmg abgeschlossen wird, wir im Blatt "Umsätze Lieferanten" nicht die richtigen Angaben eingetragen.

Nicht nur, das nicht die MIC-Artikelnummer richtig in die Spalte D eingetragen wird, sondern auch in Spalte I ein falscher Stückpreis.

Das du in dem Blatt "Umsätze Lieferanten" ungereimtheiten siehst, liegt daran.

Wie gesagt im Blatt "A&K" ist alles richtig angelegt.

Diese Mape ist eine angespeckt Mappe.  Es gibt noch mehr Preislisten, die alle gleich aufgebaut sind, nur das diese eine ander Bestellmaske benutz wird und da geht alles.

Gruß Mike

[Steffl]

Hallo Mike,

Hast du denn mal ein paar Bestellungen gemacht und während der Bestellung in der Userorm frmEtikettenbestllung vor Abschluss der Bestellunng auf dem Button "Einkaufsformular" gedrückt? Du kannst in das Bestellformular schaue und dort wird alles richtig eingetrage,

Das hatte ich mal Anfang probiert, da ich mich aber mit dem ganzen Aufbau nicht auskannte, habe ich es sein lassen.

Im Blatt "Bestellübersicht" soll immer nur die Artikelnummer des Lieferanten abgespeichert werden, das macht er ja.

Im Blatt" Umsätze Lieferanten", speichert er nicht richtig die Artiklenummern ab, alsso Spalte C und D.

Dort speichert er schon lange nicht die Artikelnummer von MIC in dei Spalte D.

Warum und wann das sich so entwickelt hat, weiss ich nicht......mir ein Rätsel?

In dieser Aussage interpretiere ich mal rein, 'es hat mal funktioniert'. Und dann stellt sich die Frage: Was hast Du im Tabellenaufbau bzw. im Code geändert?

[Mike4711]

Hallo Steffl,

das ist ja das komische.

Ich habe nichts an dem Code gemacht.

Atilla hat diesen erstellt und ich habe bisher noch nicht all zu viele Bestellung für Etiketten erstellt.

Bei den 500er Rollen fällt der Fehler nicht auf, aber seit ich die 1000er bestelle, ist dieses Problem da.

Ich habe die letzten Bestllungen dann nachträglich im Blatt "Umsätze Lieferanten" per Hand richtig auf /1000 gestzt, weil ich dacht, das dann der Artikel im Blatt "Etiketten Einkauf" dann richtig zurück geschrieben wird.

Ich Code habe ich gesucht......aber da ich diesen bis jetzt noch nicht verstanden habe, weiss ich immer noch nicht, welche Zeile was macht.

Habe irgendwelche Eingriffe vermieden....bis auf deinen Vorschlag.


Gruß Mike

Kurze Anleitung zum Einkauf Etiketten:

Im Hauptblatt Button "Etiketten bestellen" ----dann in Maske Bestellnummer Ref-Name, Artikel-Nr wählen

Artikel.Nr MIC wird automatisch angezeigt.

Dann Bestellmenge eingeben  ---- bestellung abschjleißen mit dem Button "Als PDF speichern"

dieser überträgt die Bestellung (Artikel) indas Blatt "Bestellübersicht" und "Umsätze Lieferanten"

Danach gehe ich in das Blatt "Einkauf Etiketten und rufe dort die Bestellung wieder auf.

Wenn ich diese dann soweit fertig habe. kann ich sie von dort per Mail senden.

Durch den Aufruf, kann ich schauen, ob alles richtig so bestellt wurde und ich kann zusätzlich noch einen Text einfügen bevor ich diese dann per Mail verschicke.

Das Blatt "Bestellübersicht, ist für das buchen der Lieferung, um offene Bestelllisten zu haben.

[Steffl]

Hallo Mike,

tut mir leid, da müsste ich zu tief in die Materie einsteigen und diese Zeit möchte ich nicht aufbringen. Vielleicht schaut Atilla hier mal rein und kann dir weiter helfen.

[schauan]

Hallo,

wenn ich versuche, mit der zuletzt eingestellten Datei eine Bestellung auszulösen, geht das nicht. Ich kann lediglich eine Bestellnummer eingeben - z.B. 1111, dann bekomme ich aber keinen Lieferanten zur Auswahl

Ich habe mir daraufhin mal den code vom Userform für die Bestellung angeschaut.
Die Spalte E auf Einkauf_Etiketten füllst Du im Key_Down-Ereignis von Textbox3 mit dieser codezeile:

.Cells(lngZ + 1, 5) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 23)

Setze dort mal einen Haltepunkt und prüfe
Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 23).Row
Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 1).Value

Eventuell bist Du nicht in der richtigen Zeile. Du kannst ja mal verschiedene 100er testen und schauen, ob da immer der gleiche Zeilenversatz besteht. Dann müssen wir schauen, wieso. Ich denke, die Match-Vorschläge zielten auch in die Richtung, die korrekte Zeile zu finden...

[Mike4711]

Hallo Steffl, Hallo Andre,

Steffl...
Diese Mappe ist Atillas Projekt für mich gewesen, habe auch schon 2mal versucht ihn in dieser Sache zu kontaktieren....leider ohen Erfolg.
Ich weiß gar nicht, ob er überhaupt noch hier ist und Zeit dafür hat.


Andre...
Die Mappe, die ich hier rein gesetzt habe, hat nur den Lieferanten "A&K"(Preisliste), du kannst also in der Userform "Etiketten Einkauf", diesen anwählen.
Wenn ich die anderen Preislisten der Lieferanten in dieser Mappe gelassen hätte, wäre die Mappe zu groß um sie hier zu speichern.
Hat schon einmal jemand hier geschimpft, das ich ne Mappe einsetze mit so vielen Blättern. :)

Ich werde gelich mal deinemn Vorschlag mit dem Haltepunkt versuchen und schauen, was ich da für Ergenisse erhalte.
Meine Frage hierzu: Wenn ich den Haltepunkt an dieser Zeile setze:

.Cells(lngZ + 1, 5) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 23)

soll ich dann eine Bestellung in diesem Moment tätigen oder was soll ich in diesem Moment nach setzen des Haltepunktes machen?

Grüße Mike

[Mike4711]

Hallo Andre,


habe mir den Code mal angesehen und nach deiner Zeile gesucht.
Hier der komplette Code:

Code:

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim lngZ As Long, i As Long
  Select Case KeyCode
     Case 9, 13        'Tab -und Enter-Taste betätigt
     If Len(Me.TextBox3) Then
     If CDbl(Me.TextBox3) < CDbl(Me.Label114) Then
       MsgBox "Menge kleiner als Mindestabnahme, bitte korrigieren!"
       Me.TextBox3.SetFocus
       Exit Sub
     End If
        With Sheets("Einkauf_Etiketten")
           lngZ = .Cells(31, 1).End(xlUp).Row
           If lngZ = 31 Then
              MsgBox "Bestellformular komplett gefüllt." & vbLf & vbLf & "Eingaben werden nicht mehr übernommen."
              Exit Sub
           End If
           If lngZ = 9 Then
              .Cells(lngZ + 1, 1) = 1
           Else
              .Cells(lngZ + 1, 1) = .Cells(lngZ, 1) + 1
           End If
           .Cells(1, 3) = Me.TextBox1.Text
           .Cells(3, 3) = Me.TextBox2.Text
           .Cells(lngZ + 1, 2) = CStr(Me.ComboBox2.Text)
           .Cells(lngZ + 1, 3) = Me.ComboBox3.Text
           .Cells(lngZ + 1, 4) = CDbl(Me.TextBox3.Text)
           .Cells(lngZ + 1, 5) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 23)
           .Cells(lngZ + 1, 6) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 4)
           .Cells(lngZ + 1, 7) = .Cells(lngZ + 1, 4) * .Cells(lngZ + 1, 6)
        End With

        Me.ListBox1.RowSource = "Einkauf_Etiketten!A10:G" & lngZ + 1
'         Me.ListBox1.RowSource = ""
'         Me.ListBox1.List = Sheets("Einkauf_Etiketten").Range("A10:G" & lngZ + 1).Value
        boVar = True
        For i = 1 To 3
           Me.Controls("ComboBox" & i).ListIndex = -1
        Next i
        Me.TextBox3 = ""
        Me.CommandButton2.Visible = True
        Me.CommandButton4.Visible = True
        boVar = False
        Me.Tag = 1
     Else
        MsgBox "Keine Menge eingetragen!"
        Me.TextBox3.SetFocus
     End If
  End Select
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Dim i As Integer
  i = InStr(TextBox1.Text, Chr(44))
  If i = 0 Then i = InStr(TextBox1.Text, Chr(46))
  Select Case KeyAscii
       Case 8, 48 To 57:
       Case 44: ' 44 für Komma, 46 für Punkt
          If i > 0 Then KeyAscii = 0
       Case Else
          KeyAscii = 0
          MsgBox "Nur Zahlen und Komma zulässig."
  End Select
End Sub

meinst du diese beiden Zeilen?

PHP-Code:

.Cells(lngZ + 1, 5) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 23)
            .Cells(lngZ + 1, 6) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 4) 


Gruß Mike

[schauan]

Hallo Mike,
Ja, die mit der 23 . Das ist die 23. Spalte, wo die ganzen 500 und 1000 stehen.

[Mike4711]

Hallo Andre,

was ich dann also dort erkennen kann ist, das er bei dieser Zeile:

Code:

.Cells(lngZ + 1, 6) = Sheets("A&K").Cells(Me.ComboBox1.ListIndex + 1, 4)

Die Spalte 4 anspricht....sollte da vielleicht die Spalte 1 aus dem Blatt "A&K angesprochen werden, sodass er aus Spalte 23 dort die richtige Rollenlänge einträgt?

Gruß Mike

[schauan]

Ich habe aber gerade die mit der 23 angesprochen. Da kannst Du schauen, ob die 1000 steht und in Spalte 1, ob du bei der richtigen Nummer bist
.