hi Groove,

zu deiner Mustervorgabe

Option Explicit

Sub MatrixInListeUmwandeln()
Const fstCol As Long = 1                'Spalte 1. Wert
Const rgtCol As Long = 2                'Anzahl Wertespalten rechts daneben
Const fstRow As Long = 1                'Zeile 1. Konstante
Const dwnRow As Long = 2                'letzte Konstantezeilen darunter

Dim fstRng As Range                     'Wertebereich Spalte 1. Wert
Dim rgtRng As Range                     'Wertebereich Spalten rechts daneben
Dim cstRng As Range                     'Konstantenbereich zur Spalte
Dim trgRng As Range                     'Bereich wo Liste abgelegt wird
Dim c As Range, k As Range, q As Range  'Zähler

Dim ValStr As String                    'Ergebnisstring (was denn sonst ?)
  
  Rem lege Liste zur "Weiterverarbeitung" mal rechts neben die Daten
  Set trgRng = Cells(fstRow, fstCol + rgtCol + 2)
  
  Rem lege Datenbereich fest
  Set c = Cells(Rows.Count, 1)
  Set fstRng = Columns(fstCol).ColumnDifferences( _
    Comparison:=c)

  Rem durchlaufe Datenbereich
  For Each c In fstRng
    
    Rem für alle Spalten rechts
    Set rgtRng = Range(c.Offset(0, 1), c.Offset(0, rgtCol))
    
    Rem durchlaufe Spalten rechts
    For Each k In rgtRng
      Rem neuer Ergebnisstring  '!! ohne Formatierung !!
      ValStr = c.Value
      
      Rem die Konstanten oben
      Set cstRng = Range(Cells(fstRow, k.Column), Cells(dwnRow, k.Column))
      For Each q In cstRng
        ValStr = ValStr & q.Value
      Next q
      
      Rem zuletzt Wert der aktuellen Zelle
      ValStr = ValStr & k.Value
      
      Rem Liste versorgen
      trgRng.Value = ValStr
      Set trgRng = trgRng.Offset(1, 0)
      
    Next k
    '
  Next c

Debug.Print fstRng.Address
End Sub