Excel im betrieblichen Umfeld

Über Reiter Daten -> Externe Daten abrufen eine Excel Datei, bereitgestellt in einer Sharepoint Bibliothek, anbinden Vorher Sharepoint Bibliothek als Netzlaufwerk anbinden (Windows Explorer -> rechte Maustaste auf Computer -> Netzlaufwerk verbinden) Nach Anbindung kann der absolute Pfad über Reiter Verbindungen -> Bearbeiten durch [connection string] ersetzt werden. [connection string] DSN=Excel Files;DBQ=//mySharepointserver.com/Documents/source.xlsx;DefaultDir=//mySharepointserver.com/Documents/;DriverId=1046;MaxBufferSize=2048;PageTimeout=5; siehe auch Sharepoint Liste als Datenfeed anbinden (List Services) Alternative Methode Anbindung Excel Datei bereitgestellt in Sharepoint Bibliothek (Language M Code Snippet) Quelle = Excel.Workbook( Web.Contents ("https://my.sharepoint.com/personal/user/documents/ordner/datei.XLSX"), null, true), Sheet1_Sheet = Quelle{[ Item="Sheet1 ",Kind="Sheet"]}[Data], Funktion Web

Ausgangslage und Ziel: einem Lieferanten sind eine oder mehrere Warengruppe(n) zugeordnet. Im Falle des Vorhandenseins von mehreren Warengruppen je Lieferant sollen nicht mehrere Zeilen ausgegeben werden. Stattdessen sollen die Warengruppen getrennt durch ein Trennzeichen in einer Zelle abgebildet werden. Language M Code in neue Abfrage einfügen (erweiterter Editor): ---SCHNIPP -- let Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content], fCombine = Combiner.CombineTextByDelimiter(", "), GruppierteZeilenWarengruppe = Table.Group(   Quelle,   {"Lieferant"},   {{"Warengruppen", each fCombine([Warengruppe]), type text}} ) in     GruppierteZeilenWarengruppe --- SCHNAPP -- weiteres Beispiel ---SCHNIPP --- let     Quelle = Table.NestedJoin(tbl_Lizenz,{"Rolle"},tbl_Lizenztyp,{"Rolle"},"tbl_Lizenztyp",JoinKind.LeftOuter),     fCombine = Combiner.CombineTextByDelimiter(", &quo

Beim Kopieren von Zellinhalten, welche ein benutzerdefiniertes Zahlenformat verwenden, wird dieses Format nicht in die Zieltabelle übernommen zB 1.000  ST, 50 KG usw. Mit folgendem VBA Code kann man den Format String auslesen und die Einheit in die benachbarte Zelle schreiben, bevor man einen Kopiervorgang einleitet: --- SCHNIPP --- Public Sub FormatStringEinheit_auslesen() Dim c As Range Dim i, j, counter As Integer For Each c In Selection counter = 0     'Länge des Format Strings     i = Len(c.NumberFormat)               For j = i To 1 Step -1                               'auf Vorhandensein eines Anführungszeichens prüfen             If Mid(c.NumberFormat, j, 1) = Chr(34) Then                 counter = counter + 1             End If                       'zweites Anführungszeichen gefunden ?             If counter = 2 Then                 Exit For             End If                  Next j      'Einheit in die Nachbar Spal