Registriert seit: 13.11.2014
Version(en): 2010
23.06.2015, 15:12
(Dieser Beitrag wurde zuletzt bearbeitet: 23.06.2015, 15:29 von 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
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Mike,
Zitat: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.
Zitat: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?
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 13.11.2014
Version(en): 2010
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.
Registriert seit: 11.04.2014
Version(en): Office 2007
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.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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:
Zitat:.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...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 13.11.2014
Version(en): 2010
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
Registriert seit: 13.11.2014
Version(en): 2010
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo Mike,
Ja, die mit der 23 . Das ist die 23. Spalte, wo die ganzen 500 und 1000 stehen.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 13.11.2014
Version(en): 2010
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
|