Hallo nochmal,

Basierend auf meinem vorherigen Vorschlag könnte der Code für die Umwandlung in etwa so aussehen:

Sub Uebersicht_Erstellen()
  Dim Quelle As Worksheet, Ziel As Worksheet
  
  Set Quelle = Sheets("Quelltabelle")
  Set Ziel = Sheets("Zieltabelle")
  
  lz = Quelle.Cells(Rows.Count, 1).End(xlUp).Row
  
  For i = 2 To lz
    arr = Split(Quelle.Cells(i, 2), ", ")
    For Each x In arr
      Datum = DateValue(Left(x, 10))
      Platz = Mid(x, 13, 3)
      Belegungen = Val(Mid(x, 18, 1))
      Zeile = Application.Match(CLng(Datum), Ziel.Range("A:A"), 0)
      Spalte = Application.Match(Platz, Ziel.Rows(1), 0)
      If Not IsError(Zeile) And Not IsError(Spalte) Then
        Ziel.Cells(Zeile, Spalte) = Ziel.Cells(Zeile, Spalte) + Belegungen * 10
      End If
    Next x
  Next
   
End Sub

Tipp: die Zahlen würde ich per bedingter Formatierung noch einfärben. z.b. 20 € grün, 10 € blau 30€ und höher rot. Damit siehst du noch besser, wo es freie Plätze gibt und wo eine Überbelegung vorliegt.

Gruß Mr. K.