Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kleinbuchstaben und Großbuchstaben trennen

Kleinbuchstaben und Großbuchstaben trennen
03.02.2009 14:33:00
MBorn
Hallo,
weiß jemand ob es eine Möglichkeit gibt in einem String, der Klein- und großbuchstaben ohne Leerzeiche enthält, ein Leerzeichen vor den Großbuchstaben einzufügen?
Beispiel
ThomasSchüler
Thomas Schüler
Gruß und Dank,
Born

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleinbuchstaben und Großbuchstaben trennen
03.02.2009 14:46:21
Reinhard
Hi Born,
A1: ThomasSchüler
B1: =leer(A1)

Function Leer(Zelle As Range) As String
Dim L As Integer
If Zelle.Value  "" Then Leer = Left(Zelle.Value, 1)
For L = 2 To Len(Zelle.Value)
If Mid(Zelle.Value, L, 1) = UCase(Mid(Zelle.Value, L, 1)) Then Leer = Leer & " "
Leer = Leer & Mid(Zelle.Value, L, 1)
Next L
End Function


Gruß
Reinhard

AW: Kleinbuchstaben und Großbuchstaben trennen
03.02.2009 15:03:05
MBorn
Toll, Reinhard!
Herzlichen Dank,
Born
AW: Kleinbuchstaben und Großbuchstaben trennen
03.02.2009 15:28:13
MBorn
Toll, Reinhard!
Herzlichen Dank,
Born
Ich habe gerade versucht, die Funktion so zu verändern, daß nur ein
Leerzeichen eingefügt wird, wenn hinter dem Großbuchstaben ein
Kleinbuchstabe folgt. Ist mir nicht gelungen. Könntest Du da bitte
nochmal helfen?
Beispiel:
FCGöteborg soll FC Göteborg werden.
Wäre klasse.
Anzeige
AW: Kleinbuchstaben und Großbuchstaben trennen
03.02.2009 17:15:46
Reinhard
Hallo Born,

Function Leer(Zelle As Range) As String
Dim L As Integer
If Zelle.Value  "" Then Leer = Left(Zelle.Value, 1)
For L = 2 To Len(Zelle.Value)
If Mid(Zelle.Value, L, 1) = UCase(Mid(Zelle.Value, L, 1)) And _
Mid(Zelle.Value, L + 1, 1) = LCase(Mid(Zelle.Value, L + 1, 1)) Then Leer = Leer & " "
Leer = Leer & Mid(Zelle.Value, L, 1)
Next L
End Function


Gruß
Reinhard

Leerzeichen vor Großbuchstaben per Arrayformel
03.02.2009 15:05:39
WF
Hi,
jetzt allerdings nur für Dein Beispiel
{=WECHSELN(A1;ZEICHEN(MIN(CODE(TEIL(A1;ZEILE(INDIREKT("2:"&LÄNGE(A1)));1)))); " "&ZEICHEN(MIN(CODE(TEIL(A1;ZEILE(INDIREKT("2:"&LÄNGE(A1)));1))))) }
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter (statt Enter allein); - das erzeugt sie.
trapp, trapp, trapp, trapp, trapp, brrrrr
WF
Anzeige
AW: Leerzeichen vor Großbuchstaben per Arrayformel
03.02.2009 15:29:00
MBorn
Hi WF,
danke dafür.
Ich muß es zwar mit VBA lösen, aber trotzdem danke.
Born

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige