Office: Anfangsbuchstaben in neue Spalte

Hallo zusammen

in einer Datei habe ich folgende Aufgabe zu lösen - Spalte A ist komplett beschriftet - Spalte B soll nach Muster hergestellt werden

Beispiel: A1:ELVIS PRESLEY A2:THE DOORS A3:THE RIGHTEOUS BROTHERS

ich möchte jetzt gerne die jeweiligen Anfangsbuchstaben in die nächste Spalte

also Zelle B1: EP B2: TD B3: TRB

Lässt sich das über eine Formel lösen ? Gibt es da was ?

danke im voraus

Gruss

Ludwig

:)

 

wo steht in A1 EP? Anfangsbuchstabe ist ein Buchstabe.

Tabelle2

	B
1	EP

verwendete Formeln
Zelle	Formel	Bereich
B1	=LINKS(A1;1) & TEIL(A1;FINDEN(" ";A1)+1;1)

 

Hallo auch Ludwig,

Formellösung hab Ich nicht, aber eine VBA Formel.

Kopier dir einfach das hier

Code:

 

Hallo Ludwig,

noch eine Variante - aufzurufen mit =Initialen(A1)

Option Explicit Public Function Initialen(TextEingabe As String) As String Dim vTemp   As Variant Dim iIndx   As Integer Dim iAnzahl As Integer     If TextEingabe <> "" Then        TextEingabe = Trim$(TextEingabe)        iAnzahl = Len(TextEingabe) - Len(Replace(TextEingabe, " ", ""))        vTemp = Split(TextEingabe, " ")        For iIndx = 0 To iAnzahl           Initialen = UCase(Initialen & Left(vTemp(iIndx), 1))        Next iIndx     End If End Function

Code eingefügt mit Syntaxhighlighter 4.15

Gruß Peter

 

Hallo Hajo

genauso brauche ich das - allerdings zeigts bei mir an : die Formel enhält einen Fehler........
und in der Zelle steht lediglich als Ergebnis Wert
kannst du deine Formel bitte nochmal überprüfen - danke

Ludwig

 

danke euch allen, ich habe einfach Probleme mit VBA - sollte Hajo mir also helfen können mit einer Formel, dann nehm ich die, ansonsten probiere ich eure Tips

vielen lieben Dank - ich informier über das Ergebnis

Ludwig

 

Hallo Ludwig,

wie Du in meinem Beitrag siehst habe ich ein Tool benutzt um die Zelle zu posten. Ich bin nicht der Html Mensch um den HTML Code zu ändern. Bei mir geht es. Es steht bei Dir wahrscheinlich was anderes in A1 alös bei mir. Ich habe den Inhalt aus dem Beitrag kopiert.

 

\@ Hajo

Natürlich funktioniert dein Beispiel. Wahrscheinlich hat der TS aus der HTML-Ansicht mehr kopiert, als die reine Funktion, dann "meckert" Excel natürlich.

In einem Punkt hat der TS mit den UDFs einen Vorteil: Beim letztgenannten Beispiel waren ja 3 Initialen gefragt, und da wird eine Excel-Formel schon recht umfangreich ...

 

Hallo Günter,

das ist nur eine kleine Ergänzung.

Tabelle2

	A	B
1	ELVIS PRESLEY	EP
2	THE DOO	TD
3	THE RIGHTEOUS BROTHERS	TRB

verwendete Formeln
Zelle	Formel	Bereich
B1	=LINKS(A1;1) & TEIL(A1;FINDEN(" ";A1)+1;1)&WENN(LÄNGE(A1)-LÄNGE(WECHSELN(A1;" ";""))>1;TEIL(A1;FINDEN(" ";A1;FINDEN(" ";A1)+1)+1;1);"")
B2	=LINKS(A2;1) & TEIL(A2;FINDEN(" ";A2)+1;1)&WENN(LÄNGE(A2)-LÄNGE(WECHSELN(A2;" ";""))>1;TEIL(A2;FINDEN(" ";A2;FINDEN(" ";A2)+1)+1;1);"")
B3	=LINKS(A3;1) & TEIL(A3;FINDEN(" ";A3)+1;1)&WENN(LÄNGE(A3)-LÄNGE(WECHSELN(A3;" ";""))>1;TEIL(A3;FINDEN(" ";A3;FINDEN(" ";A3)+1)+1;1);"")

Gruß Hajo

 

vielen Dank nochmal euch allen - Aufgabe gelöst

 

Hallo zusammen
ich habe 2013 mal diese Anfrage gestellt und Hajo konnte mir da auch mit der Formel super weiterhelfen -
ELVIS PRESLEY EP
B1 =LINKS(A1;1) & TEIL(A1;FINDEN(" ";A1)+1;1)&WENN(LÄNGE(A1)-LÄNGE(WECHSELN(A1;" ";""))>1;TEIL(A1;FINDEN(" ";A1;FINDEN(" ";A1)+1)+1;1);"")

jetzt habe ich aber die Aufgabe wieder die Anfangsbuchstaben in die nächste Zelle zu schreiben, allerdings sind es diesmal nicht nur 2 Worte, sondern 6-10.
Kann mir jemand sagen, wie ich die Formel dahingehend ändern muss ?
schon jetzt vielen Dank für eure Unterstützung
Gruss
Ludwig

 

Moin!
Mit Google Sheets ein Klacks:
=ARRAYFORMULA(TEXTJOIN(;1;UPPER(LEFT(SPLIT(A1;" ")))))





Für Excel hast Du ja bereits die UDF, die auch nach 6 Jahren noch funktioniert. *wink.gif*

Gruß Ralf

 

RPP63, mir wird warm ums Herz ob Deiner Sympathie für GDocs *wink.gif*

Wer Office 365 oder 2019 hat:
=TEXTVERKETTEN(;;LINKS(GLÄTTEN(TEIL(WECHSELN($A1;" ";WIEDERHOLEN(" ";99));SPALTE(A1:Z1)*99-98;99))))

(komischerweise ohne WENNFEHLER)

 

*cool.gif*
Obwohl ich Deine geniale Split-Formel in meinen Favoriten habe, versagt mein Gedächtnis immer genau dann, wenn man sie anwenden kann. *tongue.gif*

Hier mal der Link zu Deinem Tutorial:
http://www.office-hilfe.com/support/...llen-aufteilen

Gruß Ralf