kleinster palettenplatz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten morgen Björn,
erst einmal ein Dankeschön, daß Du geantwortet hast.
Du hast natürlich vollkommen recht mit Deiner Frage.
Ich versuche einmal, mein Problem zu schildern.
Beispiel: B - 3 - 1
B für Gang, 3 für Feld und 1 für die Ebene, wobei die Ebene 1
bedeutet, daß die Palette im Regal auf dem Fußboden steht. Würde am Ende eine 2 stehen, lagert die Ware in der zweiten Ebene und sollte es eine 3 sein, im obersten Regalfach.
Also, die Ware die auf dem Fußboden steht, ist mein Kommissionierbereich.
Mein Problem ist leider, daß ich nicht alle Artikel im Bereich "1" unterbringen kann, da es zur Zeit einen Platzmangel gibt. So bin ich gezungen, auch - nur zum ganz kleinen Teil - die Ebene 2 ebenfalls als Komm.-Bereich auszuweisen.
Also sollte die Formel abfragen, ob der Artikel in "1" vorhanden ist, wenn ja, dann trage den Bereich ein. Sollte der Artikel nicht in "1" vorhanden sein dann bitte nächste Ebenen, also "2" und trage diesen Platz ein.
ich wünsche allen ein frohes Pfingstfest

Hallo Dieter,
ich habe mir vergeblich den Kopf zerbrochen, wie man das mit 'ner Formel lösen kann. Deshalb hier nun eine Beispieldatei mit VBA-Code.
Im Codemodul von Tabellenblatt "Packschein" steht folgender Code:


Private Sub Worksheet_Activate()
Call Lager_durchsuchen
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Sheets("Packschein").Range("C10") Then Exit Sub
Call Lager_durchsuchen
End Sub

Beide Routinen rufen die Prozedur Lager_durchsuchen auf. Die erste Routine immer dann, wenn das Blatt "Packschein" aktiviert wird, du also dort hin wechselst. Die zweite Routine wird aufgerufen, wenn du einen Eintrag auf dem Blatt Packschein änderst. Ist die Änderung nicht in der Zelle "C10" erfolgt, so wird die Routine beendet. Wurde aber die Artikelnummer in "C10" geändert, so wird auch hier die Prozedur Lager_durchsuchen aufgerufen.
Die Prozedur Lager_durchsuchen findest du im VBA-Modul Modul1. Sie lautet:
Sub Lager_durchsuchen()
For i = 2 To Sheets("Lagerplätze").Range("A65536").End(xlUp).Row
If Sheets("Lagerplätze").Cells(i, 1) = Sheets("Packschein").Range("C10") Then
If Lager = "" Then
Lager = Sheets("Lagerplätze").Cells(i, 3)
Else
If Right(Sheets("Lagerplätze").Cells(i, 3), 1) Lager = Sheets("Lagerplätze").Cells(i, 3)
End If
End If
End If

If Right(Lager, 1) = 1 Then Exit For

Next i
Sheets("Packschein").Range("B10") = Lager
End Sub
Diese Prozedur durchsucht für alle Zeilen vom Eintrag in Zeile 2 bis zum letzten Eintrag in Spalte A auf dem Tabellenblatt "Lagerplätze", ob die Eintragung mit dem Wert von Tabellenblatt "Packschein" Zelle "C10" übereinstimmt. Ist dies der Fall, so wird der Variablen Lager der Lagerplatz zugewiesen. Ist der Lagerplatz auf Ebene 1, so wird die Suche nach weiteren Lagerplätzen abgebrochen und das Ergebnis auf dem Tabellenblatt "Packschein" in Zelle "B10" eingetragen. Ist der Lagerplatz nicht auf Ebene 1 so wird die Suche nach Lagerplätzen fortgesetzt und der Variablen Lager immer dann ein neuer Lagerplatz zugewiesen wenn die neue Ebene kleiner ist als die vorhergehende. Sobald Ebene 1 erreicht wird, wird die weitere Suche abgebrochen. Das Ergebnis wird auf dem Tabellenblatt "Packschein" in Zelle "B10" eingetragen.
Den VBA-Editor rufst du übrigens mit ALT+F11 auf.
Hier also nun die Datei:
https://www.herber.de/bbs/user/22658.xls
Falls du noch Fragen hast, kein Problem.
Gruß
Björn

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread