Power Query, Datenquelle für Seriendruck erstellen, Textbausteine in Abhängigkeit von Werten
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"...