Here is a solution for BEX analyzer NW04S layout - setFilterStyle

Question

Hi all,
I had a problem with a workbook that contains multiple sheet with differebts queries.
The problem was, that the filter panel had the same style on each sheet. And like the number of charactéristics are different for each quey, the layout was not well.
To correct this :
- I have modify the  'setFilterStyle'  macro   and now, the filter panel is displayed correctly on each sheet.
I hope this solution will be able to help you ...
Regards,
Martine
Here is the modified macro:
'--- Reformat the Filter Area with the correct stlyes
Sub setFilterStyle()
Dim i As Integer
Dim lRange As Range
Dim lsheet As Worksheet
On Error Resume Next
'i = 16
'Calculate Filter-Area
'While Sheet4.Cells(i, 3) <> ""
'   i = i + 1
'Wend
'Filter Area
For Each lsheet In ThisWorkbook.Worksheets
    i = 16
    While lsheet.Cells(i, 3) <> ""
        i = i + 1
    Wend
  If lsheet.Range("C14").Value = "Filter" Then
    Set lRange = Range(lsheet.Cells(15, 3), lsheet.Cells(i - 1, 4))
    lRange.ClearFormats
    With lRange.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 47
    End With
    With lRange.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 47
    End With
     With lRange.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 47
    End With
    With lRange.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 47
    End With
     With lRange.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 47
    End With
    With lRange.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 47
    End With
    lRange.Interior.ColorIndex = 2
  End If
Next lsheet
' No more filter Area
For Each lsheet In ThisWorkbook.Worksheets
    i = 16
    While lsheet.Cells(i, 3) <> ""
        i = i + 1
    Wend
If lsheet.Range("C14").Value = "Filter" Then
  'Calculate Filter-Area
    l_old = i
    While lsheet.Cells(l_old, 3) = "" And l_old <= 200
        l_old = l_old + 1
     Wend
     Set lRange = Range(lsheet.Cells(i, 3), lsheet.Cells(l_old - 1, 4))
     lRange.ClearFormats
  End If
Next lsheet
End Sub
'--- Service Function to get the Name Object back
Private Function getName(i_name As String) As Name
   Dim l_name As Name
     For Each l_name In ThisWorkbook.Names
        If l_name.Name = i_name Then
            Set getName = l_name
        End If
     Next l_name
End Function

Answer 1

Hello,
You can set the default workbook as the SAP standard provided.
To do this, please open the BExAnalyzer and goto the
"Global settings" screen (Its on the BExAnalysis Toolbox menubar).
In the "Select Default workbook" tab click on the "Use SAP Standard"
button.
This would set the default workbook. Close Analyzer and reopen it.
It should work fine.
Some additional information for you:
The default workbook that is used can be seen in table RSRWBTEMPLATE.
Check the workbook that is assigned to your user. If there is a blank
workbook assigned to your user, this uses the SAP Standard Global
Wokrbook. If your user iD doesn't exist in this table, then it will use
the workbook assigned to the <blank> user id. If the <blank> user id is
assigned to <blank> workbook, this means that any user id that doesn't
have an entry in this table will be use the global workbook. Don't make
any manual updates to this table, but it can be used to see who is
assigned to what workbook. You should specify using the standard workbook
for your user id through the properties in the BEx Analyzer. Ensure that
the entry is updated in this table. Also, you will need to close BEx
Analyzer and log back on to see the change.
Regards,
Manjunath