Option
Explicit
Sub
GruppierungSpalten()
Dim
ws
As
Worksheet
Dim
ersteSpalte
As
Integer
Dim
letzteSpalte
As
Integer
ersteSpalte = 35
letzteSpalte = 45
For
Each
ws
In
ThisWorkbook.Worksheets
ws.Columns(fGetColumnLetter(Range(
"A1"
), ersteSpalte) &
":"
& fGetColumnLetter(ws.Range(
"A1"
), letzteSpalte)).Ungroup
Next
ws
End
Sub
Function
fGetColumnLetter(
ByRef
c
As
Excel.Range,
ByVal
lngSpalte
As
Long
)
Dim
mc
As
Object
With
CreateObject(
"VBScript.RegExp"
)
.Pattern =
"[A-Z]+"
If
.Test(c.Offset(0, lngSpalte).Address) =
True
Then
Set
mc = .Execute(c.Offset(0, lngSpalte).Address)
fGetColumnLetter = mc(0)
End
If
End
With
End
Function