Behälter-, Bestandsmanagement

12.10.2025 20:08:18

tommy.santateresa

Hallo,

ich möchte gerne eine aktuelle Aufstellung über den Bestand / Beladung eines LKW's haben.

Es wird über eine Eingabe die Angabe der Aufträge in die Tabelle ab Zeile 20 eingegeben.

- Vorgsangsnummer für jede Be- bzw- Entladung usw

In Spalte H werden die jeweiligen Seriennummern der Behälter eingegeben
Spalte I = Behälter Voll = WAHR oder FALSCH
Spalte J = Behälter Leer = WAHR oder FALSCH
Spalte K = Behältertyp
Spalte L = Ladestatus = Beladung bzw. Entladung

Ich benötige nach jedem Be- bzw- Entladevorgang die aktuelle Aufstellung welche Behälter in welcher Beladezustand (VOLL oder LEER) auf dem LKW befinden.
Zusätzlich sollten in der Spalte G die Seriennummern aufgelistet werden, welche sich momentan auf dem LKW befinden.
Siehe Beispieldatei.

Wer kann mir hierzu weiterhelfen bei meinem Problem?

Vorab schon mal vielen Dank für die Hilfe.

https://www.herber.de/bbs/user/179144.xlsm

Gruß Thomas

AW: Behälter-, Bestandsmanagement

12.10.2025 20:38:46

Eifeljoi 5

Hallo

Wo ist hier das Problem?
Ganz einfach aus deinen Daten eine formierte Tabelle (Intelligente Tabelle) machen und dann daraus eine Pivot erzeugt.
https://www.herber.de/bbs/user/179145.xlsm

AW: Behälter-, Bestandsmanagement

13.10.2025 14:43:33

UweD

Hallo

Ich habe nun folgendes angenommen:

Die fügst unten neue Daten an.
Das können auch mehrere Zeilen für den gleichen Tag sein.
Deshalb wird die Schleife so lange rückwärts durchlaufen, bis der Tag sich ändert.

Weiter bin ich davon ausgegangen, das im oberen Bereich bei Entladung die bestehende Menge reduziert werden soll, analog bei Beladung addiert

Was muss du machen:

- Wichtig! die Bezeichnungen der Lademittel in Spalte K musst du anpassen. Die müssen genauso heißen, wie in B4:B10
- Füge einen ActiveX Button auf dem Blatt ein
- Doppelclick öffnet den Codebereich dafür
- Dieses Makro einfügen

Option Explicit



Private Sub CommandButton1_Click()

    Dim RNG1 As Range, LR As Long, Zeile As Integer

    

    Set RNG1 = Range("B4:B10")

    LR = Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte



    

    Do

        'Kopfdaten

        Cells(1, 2) = Cells(LR, 5) 'Name

        

        If Cells(LR, 3) + Cells(LR, 4) > Cells(2, 4) Then

             Cells(2, 4) = Format(Cells(LR, 3) + Cells(LR, 4), "DDDD DD.MM.YYYY hh:mm") 'Datum

        End If

        

        

        

        Zeile = Application.CountIf(RNG1, Cells(LR, 11)) 'Zeile von Typ

        If Zeile > 0 Then

            Zeile = Application.Match(Cells(LR, 11), RNG1, 0) + 3

        Else

            MsgBox "'" & Cells(LR, 11) & "' nicht gefunden"

            Exit Sub

        End If

        

        

        Cells(Zeile, 7) = Cells(LR, 8) 'Seriennummer

        

        'True= -1 False=0

        If Cells(LR, 12) = "Beladung" Then

            Cells(Zeile, 3) = Cells(Zeile, 3) - Cells(LR, 9) 'Voll

            Cells(Zeile, 4) = Cells(Zeile, 4) - Cells(LR, 10) 'Leer

        Else

            Cells(Zeile, 3) = Cells(Zeile, 3) + Cells(LR, 9) 'Voll

            Cells(Zeile, 4) = Cells(Zeile, 4) + Cells(LR, 10) 'Leer

        End If

        LR = LR - 1 'Weiter wenn: Ist vorletzte Zeile gleiches Datum?

        

    Loop Until Cells(LR, 3) > Cells(LR + 1, 3)

    MsgBox "Fertig"

End Sub

LG UweD

AW: Behälter-, Bestandsmanagement

13.10.2025 22:49:17

tommy.santateresa

Hallo Uwe,

vielen Dank, passt fast perfekt.

Wenn ich bei einer neuen Zeile mit der gleichen Seriennummer die Europalette als Beispiel wieder entlade, dann sollte auch die Seriennummer in der Spalte G entfernt werden, so dass in Spalte G die Seriennummer angezeigt wird, die auch beladen ist.

Vorab besten Danke und Grüße

tommy.santateresa

AW: Behälter-, Bestandsmanagement

14.10.2025 11:17:18

UweD

Hallo nochmal

Ich hab es so verstanden, dass die Seriennummer so lange stehen bleibt, wie mind. 1 Volle oder Leere vorhanden ist.

Option Explicit



Private Sub CommandButton1_Click()

    Dim RNG1 As Range, LR As Long, Zeile As Integer

    

    Set RNG1 = Range("B4:B10")

    LR = Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte



    

    Do

        'Kopfdaten

        Cells(1, 2) = Cells(LR, 5) 'Name

        

        If Cells(LR, 3) + Cells(LR, 4) > Cells(2, 4) Then

             Cells(2, 4) = Format(Cells(LR, 3) + Cells(LR, 4), "DDDD DD.MM.YYYY hh:mm") 'Datum

        End If

        

        

        

        Zeile = Application.CountIf(RNG1, Cells(LR, 11)) 'Zeile von Typ

        If Zeile > 0 Then

            Zeile = Application.Match(Cells(LR, 11), RNG1, 0) + 3

        Else

            MsgBox "'" & Cells(LR, 11) & "' nicht gefunden"

            Exit Sub

        End If

        

        

        'True= -1 False=0

        If Cells(LR, 12) = "Beladung" Then

            Cells(Zeile, 3) = Cells(Zeile, 3) - Cells(LR, 9) 'Voll

            Cells(Zeile, 4) = Cells(Zeile, 4) - Cells(LR, 10) 'Leer

        Else

            Cells(Zeile, 3) = Cells(Zeile, 3) + Cells(LR, 9) 'Voll

            Cells(Zeile, 4) = Cells(Zeile, 4) + Cells(LR, 10) 'Leer

        End If

        

        'Seriennummer

        If Cells(Zeile, 3) + Cells(Zeile, 3) > 0 Then

            Cells(Zeile, 7) = Cells(LR, 8) 'Seriennummer eintragen

        Else

            Cells(Zeile, 7).ClearContents 'Seriennummer löschen

        End If

        

        

        

        LR = LR - 1 'Weiter wenn: Ist vorletzte Zeile gleiches Datum?

        

    Loop Until Cells(LR, 3) > Cells(LR + 1, 3)

    MsgBox "Fertig"

End Sub

LG UweD

AW: Behälter-, Bestandsmanagement

14.10.2025 23:15:25

tommy.santateresa

Hallo,

so wie es läuft war es gemeint. Passt perfekt.

Vielen Dank für deine Hilfe.

Gruß

tommy.santateresa

AW: Behälter-, Bestandsmanagement

12.10.2025 20:44:59

tommy.santateresa

Moin,
danke für die Rückantwort.

Ich benötige die richtige anzahal der Behälter, die sich auf dem LKW befinden, wie in C4:D10 angezeigt wird.
Wenn zum Beispiel der Behälter, Seriennummer 352000 / Europalette beim nächsten Kunden abgeladen wird, sollte in der Zelle C4 sich die 2 in eine 1 abgeändert werden.

Das ganze sollte über VBA gesteuert werden.

Gruß

tommy.santateresa

Das ganze sollte über VBA gesteuert werden.

12.10.2025 20:50:03

RPP63

Moin!
Empfindest Du es nicht (so wie ich) als mindestens grob fahrlässig, bei Deinem VBA-Wissen eine Produktiv-Anwendung mit Forenhilfe entwickeln zu wollen?
Was sagst Du Deinem Vorgesetzten, wenn trotz ausgiebigem Debuggens die Datei abschmiert?
"Sorry, Chef, Herber ist schuld!"
Ist Geiz immer noch geil?

Gruß Ralf

AW: Behälter-, Bestandsmanagement

12.10.2025 21:16:09

Eifeljoi 5

Hallo

Wozu VBA?? Nein danke , für solchen Unsinn über VBA verschwende ich mir keine Gedanken.
Außerdem:
Welcher Ottonormal Verbraucher braucht sowas, ich glaube es nicht das es nicht gewerblich ist!!!
Ich bin raus dann hier

AW: Das ganze sollte über VBA gesteuert werden.

12.10.2025 21:04:38

tommy.santateresa

Hallo Ralf,

es ist nicht für eine Firma und es ist nicht für meinen Chef und es ist auch nicht zur gewerblichen Weiterverbreitung etc.

Sorry, wenn es dir so den Anschein macht...

Ich habe ein gewisses Grundwissen in VBA, nur komme ich hier nicht weiter und deshalb habe ich hier nachgefragt ob mir jemand bei meinem Problem weiterhelfen könnte...

Gruß

tommy.santateresa

Behälter-, Bestandsmanagement

Forumthread: Behälter-, Bestandsmanagement

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Behälter-, Bestandsmanagement

Forumthread: Behälter-, Bestandsmanagement

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread