Excel im betrieblichen Umfeld

  DAX Formel für measure: --- SCHNIPP --- SollStd_Gesamt:= SUMX ( SUMMARIZE ( Tabelle2; Tabelle2[Arbeitsplatz]; "SollStd_ErsterWert" ; FIRSTNONBLANK (Tabelle2[SollStd]; 1) ); [SollStd_ErsterWert] ) --- SCHNAPP ---

 Basis Code zum Formatieren von Telefonnummern --- SCHNIPP --- (phoneNumber as text) =>         let             // Entfernen von Leerzeichen aus der Telefonnummer             // zugelassene Zeichen siehe 2ter Parameter Funktion Text.Select()             strippedPhoneNumber = Text.Select(phoneNumber, {"0".."9","(",")","-"}),             // Überprüfen, ob die Telefonnummer mit einer Ländervorwahl beginnt             startsWithPlus = Text.StartsWith(strippedPhoneNumber, "+"),             // Wenn die Telefonnummer mit einer Ländervorwahl beginnt, wird sie zurückgegeben             formattedPhoneNumber = if startsWithPlus then strippedPhoneNumber else "+" & strippedPhoneNumber in     formattedPhoneNumber --- SCHNAPP ---

  --- SCHNIPP --- let     Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],          RemoveBlankColumns =                  let             BlankCols = List.Transform(Table.ToColumns(Quelle), each List.IsEmpty(List.RemoveNulls(_))),             TabCols = Table.ColumnNames(Quelle),             RemoveCols = List.Transform(List.PositionOf(BlankCols, true, Occurrence.All), each TabCols{_})         in              Table.RemoveColumns(Quelle, RemoveCols) in     RemoveBlankColumns ---SCHNAPP ---

  neue Abfrage erstellen und in zB fxFolderFiles umbenennen --- SCHNIPP --- (FolderPath as text, WorksheetName as text) =>     let         Source = Folder.Files(FolderPath),         ExcelFiles = Table.SelectRows(Source, each ([Extension] = ".xlsx")),         ContentNameSpalte = Table.SelectColumns(ExcelFiles,{"Content", "Name"}),         ContentSpalte = Table.AddColumn(ContentNameSpalte, "Custom", each Excel.Workbook([Content],true)),         Arbeitsblatt = Table.AddColumn(ContentSpalte, WorksheetName, each [Custom]{[Name=WorksheetName]}[Data]),         Tabellen = Table.SelectColumns(Arbeitsblatt,{WorksheetName})     in         Tabellen --- SCHNAPP ---

  Normalzeit in Industriezeit (Dezimalzahl) umrechnen --- SCHNIPP --- (time as text) as number => let     timeList = Text.Split(time, ":"),     hour = Number.FromText(timeList{0}),     minute = Number.FromText(timeList{1}),     second = Number.FromText(timeList{2}),     decimalTime = hour + minute/60 + second/3600 in     decimalTime --- SCHNAPP --- Industriezeit in Normalzeit umrechnen --- SCHNIPP --- (dezUhrzeit as number) as text =>  let     timelist= Text.Split(Text.From(dezUhrzeit),","),     hours = Text.PadStart(timelist{0},2,"0"),     minute = Text.PadStart(Text.From(Number.RoundDown(Number.Mod(dezUhrzeit * 60,60),0)),2,"0"),     second = Text.PadStart(Text.From(Number.RoundDown(Number.Mod(dezUhrzeit * 3600,60),0)),2,"0"),     normaltime = hours &":"& minute &":"& second in     normaltime --- SCHNAPP ---

wiederverwendbare Funktion fxSelectColumns  --- SCHNIPP --- let     SelectColumns = (Table as table, Columns as list) =>         let             ColumnNames = List.Transform(Columns, each Table.ColumnNames(Table){_}),             Output = Table.SelectColumns(Table, ColumnNames)         in             Output in     SelectColumns --- SCHNAPP --- Beispiel Aufruf (2te, 4te,6te Spalte auswählen) = fxSelectColumns(Quelle,{1,3,5})

Texte in Spalte (hier: Name, tbl_Name) aufgrund Teilwort (substring, hier: Ausschluss, tbl_Ausschluss) in Text dynamisch ausschließen (hier: Name (grün), Ergebnis)) [Name -> tbl_Name] sowie [Ausschluss -> tbl_Ausschluss] als Power Query Abfrage abbilden, tbl_Name (Ausschluss) in Liste konvertieren, Language M Code in neue, leere Abfrage kopieren --- SCHNIPP --- let     Quelle = Excel.CurrentWorkbook(){[Name="tbl_Name"]}[Content],     Datentyp= Table.TransformColumnTypes(Quelle,{{"Name", type text}}),     Result = Table.AddColumn(Datentyp, "Check",                  (x) =>         List.AnyTrue(List.Transform(tbl_Ausschluss, each Text.Contains((x[Name]), _, Comparer.OrdinalIgnoreCase)))          ),     Filter = Table.SelectRows(Result, each ([Check] = false)),     SpalteEntfernen = Table.SelectColumns(Filter,{"Name"}) in    SpalteEnt...