Guten Abend, bitte Mullit mal ansehen !!! Danke...

Public Sub Texte_zusammensetzen()
Const START_ROW As Long = 98        '// erste Text-Zeile der 'Tabgroups'
Const START_COLUMN As Long = 3      '// erste Spalte der 'Tabgroups'
Dim wksSheet As Worksheet
Dim astrText() As String
Dim lngRow As Long, lngColumn As Long
Dim ialngIndex As Long, lngCount As Long
Dim blnFirstSheet As Boolean
With ThisWorkbook
For Each wksSheet In .Worksheets
'If Not wksSheet Is .Worksheets("Übersicht") Then
If Not (wksSheet Is .Worksheets("Übersicht") Or wksSheet Is .Worksheets("Master")) Then
With wksSheet
lngCount = .Cells(START_ROW, START_COLUMN).MergeArea.Columns.Count
For lngRow = 0 To 6 Step 2
lngColumn = START_COLUMN
Do
ialngIndex = ialngIndex + 1
With .Cells(lngRow + START_ROW, lngColumn)
If Not blnFirstSheet Then
ReDim Preserve astrText(ialngIndex - 1) As String
If .Value  vbNullString Then _
astrText(ialngIndex - 1) = .Value
ElseIf .Value  vbNullString Then
astrText(ialngIndex - 1) = astrText(ialngIndex - 1) & "; " & . _
Value
End If
End With
lngColumn = lngColumn + lngCount
Loop While lngColumn