Fischer Materialwirtschaft mit Excel

Nachbaumodell mit Schrittanleitung für die wichtigsten Teile der Materialwirtschaft in der Konsumgüterindustrie
1. Auflage 2017
ISBN: 978-3-7460-1966-6
Verlag: Books on Demand
Format: EPUB
Kopierschutz: PC/MAC/eReader/Tablet/DL/kein Kopierschutz

E-Book, Deutsch, 260 Seiten

In vielen Unternehmen sind nach wie vor höchst unrationelle Materialwirtschafts-Abläufe anzutreffen, z. B.: Inventurzwänge zur Bedarfs- und Verbrauchsermittlung mit Bewertung, viel Laufarbeit und überhöhte Lagerbestände, resultierend aus der Disposition per Auge. Eine Verbesserung ist nur mit Rechenarbeit möglich. Excel kommt dabei wie gerufen. In diesem elften Buch in der Reihe Excel im Controlling wird ein Modell zur Materialwirtschaft, das sich in langjähriger Entwicklung und diversen Anwendungen in der Praxis herausgebildet hat, in zwei Versionsmodellen vorgestellt. Beide Modelle sind auf 1.000 Produkte, 2.000 Materialarten und 20.000 Rezepturdatensätze ausgelegt und bei Bedarf erweiterbar. Die Bildschirmwartezeiten liegen für alle Zugriffe unter 5 Sekunden. Daran wird deutlich, dass mit Excel auch größere Herausforderungen einer rationellen Lösung zugeführt werden können und sich somit ein großes Rationalisierungspotenzial für Unternehmen eröffnet, die entweder noch nicht über eine gute Lösung verfügen oder in denen die vorhandene Lösung unnötig hohe Kosten verursacht.

Ernst Fischer, Molkereimeister und Technischer Betriebswirt. 12 Jahre Produktionspraxis in der Lebensmittelindustrie, BWL-Studium, 8 Jahre Kostenrechnungspraxis, 8 Jahre Unternehmensberatung in Anstellung, seit 1990 selbständige Beratung. Diese außergewöhnliche Kombination aus Produktions- und Kostenrechnungspraxis, Gutachtertätigkeit und umfangreicher Beratungserfahrung generiert eine spezielle, praxisorientierte Beratungsqualität mit hoher Ergebniswirkung.

Autoren/Hrsg.

Fischer, Ernst

Leseproben

5.1 Startdatei Dateiname: 1StartMaterial.xlsm Für jede in sich geschlossene Anwendung erstellen wir eine Startdatei. Zur Aktivierung der Startdatei gibt es 3 Möglichkeiten: In der Windows-Startseite ein Icon anlegen (Empfehlung) Im Explorer suchen und anklicken In Excel über Datei – öffnen suchen und anklicken Zu 1.: Kopieren Sie ein Icon: rechte Maustaste in ein Symbol – kopieren – einfügen. Oder: Neu – Verknüpfung: Rechte Maustaste in das neue Icon – Eigenschaften – Ziel: C:\Daten\Prod\1StartMaterial.xlsm Ausführen in: C:\Daten\Material Automatisierung: Beliebige Wiederholbarkeit, sichere Dateifindung auf Mausklick und makrogesteuerte Dateifortschreibung sind wichtige Elemente eines rationellen Mausklicksystems. Dabei sind 3 Faktoren von Bedeutung: Ermittlung des Pfadnamens bei jedem Aufruf der Startdatei. Hinterlegung der Dateinamen der Anwendung, verknüpft auf den Pfadnamen. Verknüpfung der Dateinamen auf die makrogesteuert eingetragenen Zeitkennungen. Datenfluss: Der in der Startdatei hinterlegte Stammbereich wird in alle Folgedateien bei jedem Aufruf übertragen. Blattnamen: Wahl Stamm Startdatei – Blatt: Wahl Bestücken Sie das Blatt Wahl mit folgenden Elementen: Legen Sie die 6 Schaltflächen an, denen Sie die Makros MonatAuf, MonatAb, Ende, Erfassung, Rezepturen, BestandUndVerbrauch zuweisen. Monat und Jahr werden durch Klick auf Monat Auf / Monat Ab eingestellt. Firmenname, Titel, Monat und Jahr werden auf das Blatt Stamm verknüpft: Firma: =Stamm!C11 Titel: =Stamm!C12 Monat: =Stamm!C15 Jahr: =Stamm!C16 Startdatei – Blatt: Stamm Bestücken Sie das Blatt Stamm mit folgenden Elementen: Folgende Zellen sind einmalig per Eingabe zu bestücken: C11, C12, C13, C15, C16, G15-K26. J15-K26 sind jeweils mit vorangestelltem Hochkomma einzugeben. In C22 wird der Pfad makrogesteuert eingetragen. Die Hinterlegungen in C46 und C47 sind nur in der Übernahmeversion (Variante 2) erforderlich. Startdatei – Blatt: Stamm Hinterlegen Sie im Blatt Stamm folgende Formeln: C17: =I11 C18: =WENN(C17="01";C16-1;C16) C19: =SVERWEIS(C15;H15:K26;4;) C25: =C22&"\1StartMaterial.xlsm" C28: =C22&"\Rezepturen.xlsm" C31: =C22&"\Erfassung.xlsm" C32: =C22&"\MatBestand.xlsm" C36: =C22&"\zRezepturen-"&C16&".xlsx" C37: =C22&"\zProdErfassung-"&C17&"-"&C16&".xlsx" C38: =C22&"\zMatEingang-"&C17&"-"&C16&".xlsx" C39: =C22&"\zMatBestand-"&C17&"-"&C16&".xlsx" C42: =C22&"\zRezepturen-"&C18&".xlsx" C43: =C22&"\zMatBestand-"&C19&"-"&C18&".xlsx" C46: =C22&“\Produktion-“&C17&“-“&C16&“.xlsx“ C47: =C22&“\Materialeingang-“&C17&“-“&C16&“.xlsx“ G11: =SVERWEIS(H11;H15:I26;2;) G12: =WENN(G11>1;G11-1;G11) G13: =WENN(G11<12;G11+1;G11) H11: =C15 H12: =SVERWEIS(G12;G15:H26;2;) H13: =SVERWEIS(G13;G15:H26;2;) I11: =SVERWEIS(H11;H15:J26;3;) Anmerkung: Die Formeln in C46 und C47 sind nur in der Variante 2 (Quelldaten-Übernahme aus anderen Systemen) erforderlich. Startdatei – Makros Allgemeine Beschreibung: Bei jedem Aufruf der Startdatei wird der Ordnername ermittelt, an den im Blatt Stamm die Dateinamen der Arbeits- und Zwischendateien der Anwendung gebunden sind. Über Auf-/Ab-Schaltflächen wird der Monat jahresübergreifend eingestellt. Über Schaltflächen werden die Arbeitsdateien (Erfassung, Rezepturen, MatBestand) aufgerufen. Bei jedem dieser Aufrufe wird der Stammbereich C11:C110 aus dem Blatt Stamm in die Arbeitsdatei, Blatt Stamm C11 kopiert. Mit der Ende- Schaltfläche wird die Startdatei gespeichert und geschlossen. Makrostruktur: Die Startdatei enthält 7 Hauptmakros und 2 Untermakros: Auto_Open Ende MonatAuf MonatAb Rezepturen Erfassung BestandUndVerbrauch u1Aufruf u2Aufruf Sub Auto_Open() Application.ScreenUpdating = False Sheets("Stamm").Select ActiveSheet.Unprotect Range("C22").Select ActiveCell.Formula = ActiveWorkbook.Path Application.Goto Range("A1"), Scroll:=True ActiveSheet.Protect ActiveSheet.EnableSelection = xlNoRestrictions Sheets("Wahl").Select Application.Goto Range("A1"), Scroll:=True ActiveSheet.Protect ActiveSheet.EnableSelection = xlNoRestrictions Application.Calculation = xlAutomatic ActiveWorkbook.Save Application.ScreenUpdating = True End Sub Schreibt im Blatt Stamm in C22 den Pfadnamen. Speichert die Startdatei. Sub Ende() Application.ScreenUpdating = False Sheets("Wahl").Select Application.Goto Range("A1"), Scroll:=True With ActiveWindow .FreezePanes = False .SplitColumn = 0 .SplitRow = 0 .DisplayGridlines = False .DisplayHeadings = False .DisplayWorkbookTabs = False End With Application.Calculation = xlAutomatic ActiveWorkbook.Save ActiveWorkbook.Close (False) End Sub Speichert und schließt die Startdatei. Sub MonatAuf() Application.ScreenUpdating = False Sheets("Stamm").Select If Cells(15, 3) = "Dezember" Then Sheets("Wahl").Select If MsgBox("Wollen Sie in den Januar des nächsten Jahres wechseln?", _ vbQuestion + vbYesNo, "Rückfrage") = vbYes Then Sheets("Stamm").Select ActiveSheet.Unprotect Range("H15").Select Selection.Copy Range("C15").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("C16").Select ActiveCell.Value = ActiveCell.Value + 1 Application.CutCopyMode = False Application.Goto Range("A1"), Scroll:=True ActiveSheet.Protect ActiveSheet.EnableSelection = xlNoRestrictions Sheets("Wahl").Select Application.Goto Range("A1"), Scroll:=True ActiveWorkbook.Save End If Exit Sub End If Sheets("Wahl").Select If MsgBox("Wollen Sie in den nächsten Monat wechseln?", _ vbQuestion + vbYesNo, "Rückfrage") = vbYes Then Sheets("Stamm").Select ActiveSheet.Unprotect Range("H13").Select Selection.Copy Range("C15").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Application.Goto Range("A1"), Scroll:=True ActiveSheet.Protect ActiveSheet.EnableSelection = xlNoRestrictions Sheets("Wahl").Select Application.Goto Range("A1"), Scroll:=True ActiveWorkbook.Save End If Application.ScreenUpdating = True End Sub Setzt nach Dialogabfrage im Blatt Stamm in C15 den nächsten Monatsnamen ein. Erhöht im Dezember die Jahreszahl in C16 um 1. Sub MonatAb() Application.ScreenUpdating = False Sheets("Stamm").Select If Cells(15, 3) = "Januar" Then Sheets("Wahl").Select If MsgBox("Wollen Sie in den Dezember des vorherigen Jahres wechseln?", _ vbQuestion + vbYesNo, "Rückfrage") = vbYes Then Sheets("Stamm").Select ActiveSheet.Unprotect Range("H26").Select Selection.Copy Range("C15").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("C16").Select ActiveCell.Value = ActiveCell.Value - 1 Application.CutCopyMode = False Application.Goto Range("A1"), Scroll:=True ActiveSheet.Protect ActiveSheet.EnableSelection = xlNoRestrictions Sheets("Wahl").Select Application.Goto Range("A1"), Scroll:=True ActiveWorkbook.Save End If Exit Sub End...