Excel im betrieblichen Umfeld

Posts

Power Query, valide email Adresse aus Text extrahieren

September 21, 2024

neue Abfrage erstellen, Language M Code --- SCHNIPP --- (string as text) as text => Text.Combine( List.Select( Splitter.SplitTextByAnyDelimiter( {" ", ",",";",":"} )(string), each List.Count( Splitter.SplitTextByEachDelimiter( {"@","."} )(_) )=3 and Text.Length(Text.Select(_, "@"))=1 and not Text.Contains(_,"@.") ),"," ) ---SCHNAPP ---

Javascript;Excel in JSON Format / Datei konvertieren

Juli 28, 2024

HTML / Javascript Code zur Konvertierung von Excel in JSON Format --- SCHNIPP --- <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8" /> <meta name="viewport" content="width=device-width, initial-scale=1.0" /> <title>Excel to JSON Converter</title> <style> body { font-family: Arial, sans-serif; margin: 0; padding: 0; } .container { max-width: 800px; margin: 50px auto; padding: 20px; border: 1px solid #ccc; border-rad...

wiederverwendbare Funktion fxHeader;Spalten in vorgegebener Reihenfolge anordnen

Juli 24, 2024

--- SCHNIPP --- (tbl as table, Reihenfolge as list) as table => let // Quelle: Tabelle oder Datenquelle Quelle = tbl, // Liste der gewünschten Spaltenbezeichnungen GewuenschteSpalten = Reihenfolge, // Überprüfen, ob alle gewünschten Spalten vorhanden sind VorhandeneSpalten = List.Intersect({Table.ColumnNames(Quelle), GewuenschteSpalten}), // Wenn alle gewünschten Spalten vorhanden sind, sortiere sie in der gewünschten Reihenfolge Ergebnis = if List.Count(VorhandeneSpalten) = List.Count(GewuenschteSpalten) then Table.ReorderColumns(Quelle, GewuenschteSpalten) else Quelle in Ergebnis

Excel Office Script;2 Tabellen vergleichen

Juli 21, 2024

Excel Office Script 2 Tabellen vergleichen ---- SCHNIPP --- Excel . run ( function ( context ) { var sheet1 = context . workbook . worksheets . getItem ( "Tabelle1" ); var sheet2 = context . workbook . worksheets . getItem ( "Tabelle2" ); var range1 = sheet1 . getUsedRange (); // Ermittelt benutzten Bereich in ersten Tabelle var range2 = sheet2 . getUsedRange (); // Ermittelt benutzten Bereich in zweiten Tabelle range1 . load ( "values" ); range2 . load ( "values" ); return context . sync (). then ( function () { for ( var i = 0 ; i < range1 . values . length ; i ++) { for ( var j...

Power Query, Haversine Funktion, Ermittlung Distanz in km zwischen 2 Städten

Juli 03, 2024

über Datentyp Geographie kann Breiten- und Längengrad einer Stadt ermittelt werden fxHaversineDistanz --- SCHNIPP --- let HaversineDistance = (lat1 as number, lon1 as number, lat2 as number, lon2 as number) => let R = 6371, // Erdradius in km deg2rad = (deg) => deg * (2 * Number.PI) / 360, dLat = deg2rad(lat2 - lat1), dLon = deg2rad(lon2 - lon1), a = Number.Power(Number.Sin((dLat / 2)),2) + Number.Cos((deg2rad(lat1))) * Number.Cos((deg2rad(lat2))) * Number.Power(Number.Sin((dLon / 2)),2), c = 2 * Number.Atan2(Number.Sqrt(a), Number.Sqrt(1 - a)), distance = R * c in distance i...

Power Query;translate,übersetzen mit google API

Juni 10, 2024

folgenden Language M Code in eine leere Abfrage (erweiterter Editor) kopieren, Name fxUebersetzen --- SCHNIPP --- (originalText as text, Quellsprache as text, Zielsprache as text) as text => // Quellsprache, Zielsprache = ISO Ländercode zB de,en,it,es usw let Quelle = Json.Document( Web.Contents("https://translate.googleapis.com/translate_a/single?client=gtx&sl="& Quellsprache &"&tl="& Zielsprache &"&dt=t&q=" & originalText) ), Uebersetzung = Quelle{0}{0}{0} in Uebersetzung --- SCHNAPP --- Aufruf über Spalte hinzufügen -> benu...

Power Query,SWITCH Funktion nachbauen

Mai 04, 2024

Beispiel als Abfrage in Power Query abbilden neue benutzerdefinierte Spalte hinzufügen: Record.FieldOrDefault( [ // Datensatz mit Zuordnung DE = "Deutschland", // Abkürzungen Land ES = "Spanien", FR = "Frankreich", BE = "Belgien", IT = "Italien" ], [Abkürzung], // Nachschlagewert in Datensatz "nicht vorhanden" // default Wert wenn nicht gefunden ) Ergebnis: