Excel im betrieblichen Umfeld

Erstellung einer Datenquelle für Seriendruck mit Microsoft Word. Dabei werden Textbausteine in Abhängigkeit von Werten (hier: Kennzahlenwerte) verwendet. 1 Vorbereitung [Punkte] je Lieferant und Kennzahl in [Tabelle1] eintragen Wertebereiche ([ab], [bis]) je [Kennzahl] sowie [Textbaustein] in [Tabelle2] definieren Über Excel Makro [TextID] ermitteln lassen Excel VBA Code, um [TextID] (Textbaustein) in Abhängigkeit des Wertebereichs, innerhalb dessen sich eine Kennzahl befindet, zu ermitteln und zuzuordnen --- SCHNIPP --- Public Sub TextID_zuordnen() 'Text in Abhängigkeit von Kennzahl und Punktzahl zuweisen Dim wksLiefBew As Worksheet, wksTextID As Worksheet Dim lZeile As Integer Dim lTextID As Integer Set wksLiefBew = ActiveWorkbook.Worksheets("Lieferantenbewertung_Ergebnis") Set wksTextID = ActiveWorkbook.Worksheets("Texte") For lZeile = 1 To wksLiefBew.Cells(Rows.Count, 1).End(xlUp).Row       If wksLiefBew.Range("A"

Ausgangslage 2 Tabellen, Spalten [Attribut1] ... [AttributN] sind abhängig von Spalte [Merkmal] Aufgabe: Ermittlung der Differenz beider Tabellen, anders formuliert: Unterscheiden sich die Spalteninhalten [Attribut1] ... [AttributN] beider Tabellen ? Und wenn ja, welche abhängigen Spalten sind es ? 1 Tabellen [Liste1] und [Liste2] als Arbeitsmappenabfrage abbilden 2 Entpivotieren Reiter [Transformieren] -> Spalten entpivotieren -> andere Spalten entpivotieren (Spalte [Merkmal] ist markiert) Anders formuliert: die Spalten [Attribut1] ... [AttributN] und deren [Wert] werden transponiert, Spalten werden in Zeilen gewandelt 3 Spalten [Attribut] und [Wert] in neuer Spalte zusammenführen [Zusammengeführt] 4 nach Spalte [Merkmal] gruppieren, Option [Alle Zeilen]   screenshot siehe folgenden Blog Beitrag  und / oder hier (Abschnitt [alternativer Ansatz])   Spalte [Zusammengeführt]  des Table Objekts in List Objekt (Alle Spalteninhalte Spalte [Zusammeng

Phase 1 - Vorbereitung Quell - Ziel Felder Struktur (Spaltennamen) 1.1 Datenquelle über Excel Power Query anbinden zB SAP Export Daten, Text Datei, Tab getrennt angewendete Schritte := [Quelle] = Csv.Document(File.Contents("D:\Projekte\SAP\Daten\SAP_Export.txt"),[Delimiter=" ", Columns=6, Encoding=1252, QuoteStyle=QuoteStyle.None]) 1.2 Liste (Listobjekt) mit Spalten der Datenquellenstruktur erstellen angewendete Schritte := [Liste_Quellfelder] = Table.ColumnNames(Quelle) Exkurs: Anzahl Spalten der Quelldaten ermitteln = List.Count(Table.ColumnNames(Quelle)) 1.3 in Tabelle konvertieren, Spalte in [Quell_Feld] umbenennen Language M Code --- SCHNIPP --- let     Quelle = Csv.Document(File.Contents("D:\Projekte\SAP\Daten\SAP_Export.txt"),[Delimiter=" ", Columns=6, Encoding=1252, QuoteStyle=QuoteStyle.None]),     Liste_Quell_Felder = Table.ColumnNames(Quelle),     #"In Tabelle konvertiert&q