Excel im betrieblichen Umfeld

In SAP sind Informationen auf viele einzelne Tabellen verteilt (Relationales Datenmodell). Diese stehen teilweise über Primär- und Fremdschlüssel in Beziehung. SAP bietet mit der SAP Transaktion SE11 ein Data Dictionary an, mit dessen Hilfe man Tabellenbeziehungen anzeigen kann. Dafür wählt man in der Transaktion SE11 die Option "Grafik" an oder nutzt die Tastenkombination STRG - SHIFT - F11: Bei Bedarf  kann man aus den verknüpften Tabellen auswählen und diese dem ER-Modell hinzufügen Für einen schnellen Überblick über Tabellenbeziehung kann sich auch ein Blick auf die Transaktion SQVI lohnen (Quick Viewer)

Im Folgenden wird eine Methode beschrieben, wie man mit Excel Power Query eine laufende Summe absolut, prozentual zum Gesamtergebnis, ABC Klassifizierung und somit eine ABC Analyse durchführen kann. Ausgangsbasis ist eine Tabelle mit 2 Spalten (Produkt, Wert) Exkurs: Excel Tabelle als Abfrage zur weiteren Bearbeitung in Power Query übernehmen Schritt 1 Im Power Query Editor absteigend nach Spalte [Wert] sortieren Schritt 2 benutzerdefinierte Spalte hinzufügen, [Custom] = List.Buffer(Sortierung_Wert[Wert]) Jeder einzelne Wert der Spalte [Wert] wird in einem List Objekt gespeichert Schritt 3 benutzerdefinierte Spalte [kumuliert] (laufende Summe) hinzufügen =List.Sum(List.Select([Custom], (x)=>x>=[Wert])) im jeweiligen Zeilenkontext wird dadurch die laufende Summe aller vorherigen Werte ermittelt Schritt 4 benutzerdefinierte Spalte [Prozent_kumuliert] hinzufügen = [kumuliert]/List.Sum([Custom]) Schritt 5 benutzerdefinierte Spalte [Klasse] hinzuf

Leider bietet das SAP Excel AddIn Analysis 4 Office "out of the box" keine Möglichkeit, mehrere Dimensionselemente als Gruppe / benutzerdefiniertes Datenset anzulegen. Das heißt in der Praxis oft, dass bei Bedarf manuell eine Mehrfach Selektion von Dimensionselementen durchgeführt werden muß. Diesen Schritt kann man jedoch mittels DropDown Steuerelement, der Funktion SAPSetFilter() sowie etwas VBA Code automatisieren. Funktion SAPSetFilter / Parameter SAPSetFilter("Datenquelle", "technische Feldbezeichnung", "Element1;Element2;Elementn","INPUT_STRING") --- Beginn VBA Code Public Sub HintergrundFilter_WerksEK(OE As String) 'Übergabe Wert DropDownFeld Dim lResult As Long Select Case OE 'Werkszuordnung Einkauf     Case "OE0"     'OE0     lResult = Application.Run("SAPSetFilter", "DS_1", "ZPURGROUP", "I10;I11;I12;I13;I14;I15;I16;I17;I18;I19;I20;I99",