test BB Code

[DocAElstein]

For sandy....

where I can change color of the headers font in Forum Tool add-in?

I don't have the current newest version, but I think my old version is similar.....

Current: ( This is my version which I have already modified many times )

Using Excel 2007 32 bit

Row\Col	A	B	C
1	Date	Name	Laps
2	05. Apr	Dan	23

Worksheet: Tabelle1

__ Alt+F11 (VB Editor Window)
__ 1 Forum Tools --- 2 Module --- 3 mBBCode
1 Forum Tools --- 2 Module --- 3 mBBCode.JPG : https://imgur.com/Rl95Bol
1 Forum Tools --- 2 Module --- 3 mBBCode.jpg

Private Function RngToBBC(rInp As Range, _
                          iSize As Long, _
                          Optional bHdr As Boolean = True, _
                          Optional bFrm As Boolean = False, _
                          Optional bA1 As Boolean = False, _
                          Optional bColour As Boolean = False) As String
                          
    'Const csHEADER_COLOR As String = """#FFFFFF"""
    Const csHEADER_COLOR As String = "black"
    'Const csHEADER_BACK As String = "#888888"
    Const csHEADER_BACK As String = "#417394"
    'Const csHEADER_BACK As String = "skyblue"
    Const csROW_BACK As String = "#FFFFFF"
    Dim sOut                  As String
    Dim rRow                  As Range
    Dim Cell                  As Range

_.________________-

Now Change to red for sandy...
Using Excel 2007 32 bit

Row\Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1

Private Function RngToBBC(rInp As Range, _
                          iSize As Long, _
                          Optional bHdr As Boolean = True, _
                          Optional bFrm As Boolean = False, _
                          Optional bA1 As Boolean = False, _
                          Optional bColour As Boolean = False) As String
                          
    'Const csHEADER_COLOR As String = """#FFFFFF"""
    Const csHEADER_COLOR As String = "black"
    'Const csHEADER_BACK As String = "#888888"
    'Const csHEADER_BACK As String = "#417394"
    Const csHEADER_BACK As String = "red"
    'Const csHEADER_BACK As String = "skyblue"
    Const csROW_BACK As String = "#FFFFFF"
    Dim sOut                  As String
    Dim rRow                  As Range
    Dim Cell                  As Range

_.______________________________________
Some test of mSettings code module
Using Excel 2007 32 bit

Row\Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
Using Excel 2007 32 bit

Row\Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
Using Excel 2007 32 bit

Row\Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
Using Excel 2007 32 bit

Row\Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1
No changes in my old version

still no changes with this:

#If VBA7 Then
    Public Const TB_BORDER_COLOR As String = "#BBB"
    'Public Const COLHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const COLHDR_BCKGRND_COLOR As String = "red"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#DAE7F5"
    Public Const ROWHDR_BORDER_COLOR As String = "#BBB"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#Else
    Public Const TB_BORDER_COLOR As String = "#A6AAB6"
    'Public Const COLHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const COLHDR_BCKGRND_COLOR As String = "red"
    Public Const ROWHDR_BCKGRND_COLOR As String = "#E0E0F0"
    Public Const ROWHDR_BORDER_COLOR As String = "#A6AAB6"
    Public Const ROWHDR_FONT_COLOR As String = "#161120"
#End If

Using Excel 2007 32 bit

Row\Col	A	B
1	Date	Name
2	05. Apr	Dan

Worksheet: Tabelle1