Excel im betrieblichen Umfeld

Lern Videos Kreuztabelle kopieren und in neue Excel Tabelle einfügen Excel VBA benutzerdefiniertes Zahlenformat in zusätzliche Spalte auslesen best practices VBA mit Analysis 4 Office Variablen und Filter Handbuch SAP BW Analysis 4 Office

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         ...

Leider bietet das SAP Excel AddIn Analysis 4 Office "out of the box" keine Möglichkeit, mehrere Dimensionselemente als Gruppe / benutzerdefiniertes Datenset anzulegen. Das heißt in der Praxis oft, dass bei Bedarf manuell eine Mehrfach Selektion von Dimensionselementen durchgeführt werden muß. Diesen Schritt kann man jedoch mittels DropDown Steuerelement, der Funktion SAPSetFilter() sowie etwas VBA Code automatisieren. Funktion SAPSetFilter / Parameter SAPSetFilter("Datenquelle", "technische Feldbezeichnung", "Element1;Element2;Elementn","INPUT_STRING") --- Beginn VBA Code Public Sub HintergrundFilter_WerksEK(OE As String) 'Übergabe Wert DropDownFeld Dim lResult As Long Select Case OE 'Werkszuordnung Einkauf     Case "OE0"     'OE0     lResult = Application.Run("SAPSetFilter", "DS_1", "ZPURGROUP", "I10;I11;I12;I13;I14;I15;I16;I17;I18;I19;I20;I99", ...