Office: (Office 2007) Wörter trennen wenn Großbuchstabe in String

MaggusR · 16. März 2011

Hallo zusammen,

ich möchte Strings, die in einer Zelle stehen, jeweils vor dem nächsten Großbuchstaben teilen:

BauermannHans, (z.B. in Zelle A1) soll z.B.

Bauermann

und

Hans

ergeben und in der gleichen Zeile, eine (B1) bzw. zwei Spalten (C1) weiter geschrieben werden.

Wer kann mir hier helfen?

Viele Grüße
MaggusR

:)

EarlFred · 17. März 2011

Hallo MaggusR,

Formel für B1:
Code:

{=LINKS(
A1;
MAX(
ZEILE(INDIREKT("2:"&LÄNGE(A1)))
*IDENTISCH(
TEIL(A1;ZEILE(INDIREKT("2:"&LÄNGE(A1)));1);
GROSS(TEIL(A1;ZEILE(INDIREKT("2:"&LÄNGE(A1)));1))))
-1)}
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

(geschweifte Klammern bitte nicht mit eingeben, sondern die Formeleingabe mit Strg+Shift+Enter beenden)
Formel für C1:
Code:

=WECHSELN(A1;B1;"")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

CitizenX · 17. März 2011

Hallo MaggusR,

hier mal ein Bsp per VBA:

Sub Trennen()
Dim myArray()
Dim i&, n&, z%
Dim Anz&
z = 1
Do While Cells(z, 1) <> ""
Anz = Len(Cells(z, 1))
Redim myArray(1 To Anz)
i = i + 1
Do Until i > Anz
n = IIf(UCase(Mid(Cells(1, 1), i, 1)) = Mid(Cells(1, 1), i, 1), n + 1, n)
myArray(n) = myArray(n) & Mid(Cells(1, 1), i, 1)
i = i + 1
Loop
Cells(z, 2).Resize(, n) = myArray
i = 0: n = 0: z = z + 1
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 18. März 2011

Hallo zusammen,

dann aber bitte auch noch eine Variante mit Regexp *wink.gif*

Code:

Option Explicit
Function splitName(rng As Range) As Variant
Dim vSplits() As Variant, i As Long
Dim re As Object, m As Object

Set re = CreateObject("VBScript.RegExp")
With re
.Global = True
.Pattern = "[A-ZÄÖÜ][a-zäöüß]*"
Set m = .Execute(rng)
End With

ReDim vSplits(0 To m.Count - 1)
For i = 0 To m.Count - 1
vSplits(i) = m.Item(i).Value
Next i
splitName = vSplits

Set m = Nothing
Set re = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktion in Arbeitsblatt:
Zellen B1 bis C1 (oder mehr Spalten, je nach Anzahl der Namen) gemeinsam markieren und Formel eingeben
Code:

Formel := {=splitName(A1)}
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Geschweifte Klammern bitte nicht mit eingeben, sondern Formeleingabe mit Strg+Shift+Enter abschließen.

Grüße
EarlFred

MaggusR · 18. März 2011

Hallo ihr beiden,

super, vielen Dank für Eure schnelle Hilfe *Smilie
Ich habe jetzt mal die Formellösung ausprobiert, und die klappt sehr gut.
Ich werde aber auch die anderen Lösungen testen und Feddback geben.

Danke nochmal und schönes Wochenende

MaggusR

OfficeUser · 12. Januar 2021

HAllo

dann aber bitte auch noch eine Variante mit Regexp
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jau ! ;-)
Ich hatte es nur etwas anders verstanden:

Tabelle1

A B
1 Hallo zusammen,

ich möchte Strings, die in einer Zelle stehen, jeweils vor dem nächsten Großbuchstaben teilen:

BauermannHans, (z.B. in Zelle A1) soll z.B.

Bauermann

und

Hans

ergeben und in der gleichen Zeile, eine (B1) bzw. zwei Spalten (C1) weiter geschrieben werden.

Wer kann mir hier helfen?

Viele Grüße
MaggusR

Hallo zusammen,ich möchte
2 Strings, die in einer
3 Zelle stehen, jeweils vor dem nächsten
4 Großbuchstaben teilen:
5 Bauermann
6 Hans, (z.
7 B. in
8 Zelle
9 A1) soll z.
10 B.
11 Bauermann und
12 Hans ergeben und in der gleichen
13 Zeile, eine (
14 B1) bzw. zwei
15 Spalten (
16 C1) weiter geschrieben werden.
17 Wer kann mir hier helfen?
18 Viele
19 Grüße
20 Maggus
21 R
22 #WERT!
Zelle Formel
B1 =machs($A;ZEILE(A1))
Excel Tabellen im Web darstellen >>

Office: (Office 2007) Wörter trennen wenn Großbuchstabe in String

Wörter trennen wenn Großbuchstabe in String

Wörter trennen wenn Großbuchstabe in String

Wörter trennen wenn Großbuchstabe in String

Wörter trennen wenn Großbuchstabe in String - Similar Threads - Wörter trennen Großbuchstabe

1050 Zahlen mit einem Wort wiedergeben

Excel - nach mehreren Wörtern suchen und diese farbig markieren?

Word - nach mehreren Wörtern suchen und diese farbig markieren?

Nach Wörtern in Textmarke suchen und Zeilen formatieren

Ein Spalte in eine Zeile verwandeln und zwischen der Worten in OR als Trenner einfügen.

Alle Wörter nach Silben trennen

Wörter in einer Zelle teilen

	A	B
1	Hallo zusammen, ich möchte Strings, die in einer Zelle stehen, jeweils vor dem nächsten Großbuchstaben teilen: BauermannHans, (z.B. in Zelle A1) soll z.B. Bauermann und Hans ergeben und in der gleichen Zeile, eine (B1) bzw. zwei Spalten (C1) weiter geschrieben werden. Wer kann mir hier helfen? Viele Grüße MaggusR	Hallo zusammen,ich möchte
2		Strings, die in einer
3		Zelle stehen, jeweils vor dem nächsten
4		Großbuchstaben teilen:
5		Bauermann
6		Hans, (z.
7		B. in
8		Zelle
9		A1) soll z.
10		B.
11		Bauermann und
12		Hans ergeben und in der gleichen
13		Zeile, eine (
14		B1) bzw. zwei
15		Spalten (
16		C1) weiter geschrieben werden.
17		Wer kann mir hier helfen?
18		Viele
19		Grüße
20		Maggus
21		R
22		#WERT!