Suchfunktion mit Anfangsbuchstaben

[shift-del]

Moin PIVPQ

Ich weiß nicht ob es dir bereits bekannt ist aber im SplitColumn-Schritt gibt es unter "Erweiterte Optionen" die Möglichkeit die Daten in Zeilen aufzuteilen. Damit spart man sich den Unpivot-Schritt.

[PIVPQ]

Hallo shift-del

Vielen vielen lieben Dank für deinen sehr netten Hinweis.
Ehrlich gesagt kannte das schon, habe es aus meiner Faulheit vergessen an zuwenden, ist aber nun in meiner Datei abgeändert.
Dies erspart natürlich unnötiges entpivotieren. 

[snb]

Code:

Sub M_snb()
  sn = Sheets(1).Cells(1).CurrentRegion.Columns(2)
   
  For j = 2 To UBound(sn)
    sn(j, 1) = Join(Filter(Split(sn(j, 1), ","), "M"))
  Next
   
  Sheets(1).Cells(1).CurrentRegion.Columns(2).Offset(, 3) = sn
End Sub