VBA - erste Buchstaben eines Textes

[Klaus]

Hallo Fennek,

auch dir herzlichsten Dank für deine Mühen.
Auch deinen Vorschlag werde ich mir auf der Zunge zergehen lassen.

Liebe Grüße
Klaus

[schauan]

Hallöchen,

hier mal noch der Vollständigkeit halber der Formelansatz, allerdings für 4 Worte. Pro möglichem weiteren Wort müsste der dann entsprechend verlängert werden.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	papa will nicht mehr	pa, w, n, m

Zelle	Formel
B1	=LINKS(A1;1+(LINKS(A1;1)="P")) & ", " & TEIL(A1;FINDEN(" ";A1)+1;1+(TEIL(A1;FINDEN(" ";A1)+1;1)="p")) & ", " & TEIL(A1;FINDEN("##";WECHSELN(A1;" ";"##";2))+1;1+(TEIL(A1;FINDEN("##";WECHSELN(A1;" ";"##";2))+1;1)="p")) & ", " & TEIL(A1;FINDEN("##";WECHSELN(A1;" ";"##";3))+1;1+(TEIL(A1;FINDEN("##";WECHSELN(A1;" ";"##";3))+1;1)="p"))

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[snb]

Code:

Sub M_snb()
  [a1] = "papa will nicht mehr"
  MsgBox Join(Filter([transpose(if(mid(" " & A1,row(offset(A1,,,len(A1))),1)=" ",mid(A1,row(offset(A1,,,len(A1))),1+(mid(A1,row(offset(A1,,,len(A1))),1)="p")),"~"))], "~", 0), ",")
End Sub