hubraumking
Dec 09, 2012
view6116
view8
0
Goto Top

Erste Buchstaben groß

GermanQuestionVB for ApplicationsDevelopment
Hallo,

habe bei Euch den Code für Excel VBA gefunden und kann den super bei mir verwenden,
aber wie bekomme ich es hin, dass nach mehreren Trennkriterien bearbeitet wird

Hier der Code :


MsgBox FirstUpper("KARL-heinz", "-")
MsgBox FirstUpper("karl", "-")

Function FirstUpper(N, Delim)
NameParts = Split(LCase(N), Delim)
For i = 0 To UBound(NameParts)
NameParts(i) = UCase(Left(NameParts(i), 1)) & Mid (NameParts(i), 2)
Next
FirstUpper = Join(NameParts, Delim)
End Function

Das geht nun nur für z.B. hans-Peter-mayer

Es wäre schön, wenn man da auch gleich LEER-Zeichen gleichzeitig mit abfragen und bearbeiten kann,
also z.B.

KARL-meyer von peter

Damit dann daraus: Karl-Meyer von Peter

wird
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 195568

Url: https://administrator.de/contentid/195568

Printed on: April 19, 2024 at 03:04 o'clock

8 Comments
Latest comment
Goto Top
Member: rubberman
rubberman Dec 09, 2012 at 13:18:02 (UTC)
Goto Top
Hallo hubraumking, willkommen im Forum.

Die Frage ist eher, weche Regel definierst du, warum von NICHT groß geschrieben werden soll? Sonst ist dir kaum zu helfen.

Grüße
rubberman
Member: hubraumking
hubraumking Dec 09, 2012 at 14:04:46 (UTC)
Goto Top
Das mit dem von hab ich schon mit if abgefangen.
Mir geht's darum dass mal - und mal Leerzeichen vorkommen.
Wie kann man das machen damit mein Beispiel richtig mit ersten Großbuchstaben rauskommt
Member: rubberman
rubberman Dec 09, 2012 updated at 15:09:00 (UTC)
Goto Top
Hallo hubraumking,

ich würde mittels Regulärem Ausdruck die Anfangspositionen der einzelnen Wörter suchen.
Option Explicit

Sub test()
    MsgBox FirstUpper("KARL-meyer von peter")  
End Sub

Function FirstUpper(strName)
    Dim objRegex, colMatches, objItem, index, strChar

    strName = LCase(strName)

    Set objRegex = CreateObject("VBScript.RegExp")  
    objRegex.Global = True
    objRegex.Pattern = "\b\w+\b"  

    Set colMatches = objRegex.Execute(strName)
    For Each objItem In colMatches
        If objItem.Value <> "von" Then  
            index = objItem.FirstIndex
            strChar = Mid(strName, index + 1, 1)
            strName = Replace(strName, Right(strName, Len(strName) - index), Replace(strName, strChar, UCase(strChar), index + 1, 1))
        End If
    Next
    FirstUpper = strName
End Function

Microsoft Beefs Up VBScript with Regular Expressions

Grüße
rubberman
Member: hubraumking
hubraumking Dec 09, 2012 at 17:43:22 (UTC)
Goto Top
Hallo,

hab das grad mal alles kopiert und mit :

Private Sub Workbook_Open()
FirstUpper ("KARL-meyer von peter")
End Sub

aufgerufen im Schrittbetrieb.

Es geht nicht, sondern es kommt bei Zeile:
et objRegex = CreateObject("VBScript.RegExp") Fehler:

Laufzeitfehler "429"
Objekterstellung durch ActiveX-Komponente nicht möglich,

weiß aucu nicht was das bedeuten soll???

Ich bin leider kein Profi face-sad SORRY.

Das erste Script geht ja aber eben nur für "-" oder für " "

Wäre schön, wenn wir das hier hinbekommen - VIELEN DANK im VORAUS face-wink
Member: rubberman
rubberman Dec 09, 2012 at 18:02:19 (UTC)
Goto Top
Hallo hubraumking.

Teste mal mit
    Set objRegex = New RegExp
Vorher unter ...
Extras -> Verweise -> Microsoft VBScript Regular Expressions 5.5
... Haken setzen und OK.

Grüße
rubberman
Member: hubraumking
hubraumking Dec 09, 2012 at 18:07:06 (UTC)
Goto Top
Den Punkt "Microsoft VBScript Regular Expressions 5.5" gibt es da nicht.

und was soll ich wie und wo mit " Set objRegex = New RegExp" testen?

Haben MS-Excel für den MAC 2011
Member: rubberman
rubberman Dec 09, 2012 at 18:20:24 (UTC)
Goto Top
Zitat von @hubraumking:
Haben MS-Excel für den MAC 2011

Sorry, aber an diesem Punkt bin ich raus. Ich habe keine Ahnung von MAC. Im Netz findet sich auch nur die Info, dass Reguläre Ausdrücke dort nicht unterstützt werden (wie einiges andere auch).

Da sollen sich andere MAC User mal den Kopf zerbrechen face-sad

Grüße
rubberman
Member: hubraumking
hubraumking Dec 09, 2012 updated at 18:34:54 (UTC)
Goto Top
Das ist doch aber auch VBA genauso wie beim PC.

Habe schon einiges dafür geschrieben hier zu Hause am MAC, was dann am PC auch ging.

Was meinst Du mit Teste mal: Set objRegex = New RegExp ???

Wo soll ich das eingeben?


Ich hab derweile mal das erste Script erweitert, dass in der ersten Schleife auf "-" und dann das ohne klein, da ja alles in erster Schleife nach ersten Buchstaben schon klein ist, noch mal nach LEERZEICHEN, und da geht es.

Aus "karl mayer-von-petER Bertram-Müller" als Beispiel in A1 wird richtig:
Karl Mayer-von-Peter Bertram-Müller

face-smile

Achso, hier das wie ich es geändert haben:

Function FirstUpper(N, Delim)
    NameParts = Split(N, Delim)
    For i = 0 To UBound(NameParts)
        If NameParts(i) <> "von" Then  
            NameParts(i) = UCase(Left(NameParts(i), 1)) & LCase(Mid(NameParts(i), 2, Len(NameParts(i)) - 1))
        End If
    Next
    FirstUpper = Join(NameParts, Delim)
    
    NameParts = Split(FirstUpper, " ")  
    For i = 0 To UBound(NameParts)
        If NameParts(i) <> "von" Then  
            NameParts(i) = UCase(Left(NameParts(i), 1)) & Mid(NameParts(i), 2)
        End If
    Next
    FirstUpper = Join(NameParts, " ")  
End Function

ZUSATZ: Ich werd das morgen mal am PC probieren Deine Geschichte.
Bitte geb mir noch ne Antwort, was Du mit dem Testen von Set objRegex = New RegExp meinst? Was muß ich da wo eintragen

VIELEN DANK und schönen Adventsabend wünsch ich Dir face-wink
GermanQuestionVB for ApplicationsDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 1 CommentDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment