Microsoft Excel

Herbers Excel/VBA-Archiv

Kleinbuchstaben in Grossbuchstaben umwandeln

Betrifft: Kleinbuchstaben in Grossbuchstaben umwandeln von: Daniel
Geschrieben am: 12.08.2004 19:50:38

Hallo,

wie stelle ich das an: Ich habe ca 10.000 Zeilen à eine Spalte. In jeder Spalte befindet sich ein Wort. In jedem Wort befinden sich drei Doppelpunkte. Ich möchte nun den ersten Buchstaben nach den drei Doppelpunkten in gross geschrieben haben. Wie mach ich das?

Gruss
Daniel

  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: HermannZ
Geschrieben am: 12.08.2004 20:03:23

Hallo Daniel
ohne Hellseherische Fähigkeiten schwer zu beantworten.
wie sehen die Worte aus immer die Gleichen wohl kaum????
wo befinden sich die Doppelpunkte immer ander gelichenStelle oder wo???

Gruß hermann


  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: Boris
Geschrieben am: 12.08.2004 20:04:35

Hi Daniel,

in A1 steht:
Daniel:::kübelböck

Mit
=ERSETZEN(A1;FINDEN(":::";A1)+3;1;GROSS(TEIL(A1;FINDEN(":::";A1)+3;1)))
wird daraus
Daniel:::Kübelböck

Grüße Boris


  


Betrifft: AW:Das ist Klasse Boris....oT von: HermannZ
Geschrieben am: 12.08.2004 20:06:19

...


  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: Daniel
Geschrieben am: 12.08.2004 20:10:14

Hallo Boris,

das klappt bei mir leider nicht. wenn ich das anwende, erscheint in der Spalte B nur das Wort nach den drei Doppelpunkten, und der erste Buchstabe ist immer noch kleingeschrieben.


  


Betrifft: Nur zu meinem Verständnis... von: Ramses
Geschrieben am: 12.08.2004 20:14:05

Hallo

Bist du der gleiche, dem ich heute morgen diese Frage beantwortet habe ?
Dort musste das Wort doch getrennt werden und ebenfalls mit Grossbuchstaben am Anfang.

Gruss Rainer


  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: Boris
Geschrieben am: 12.08.2004 20:15:08

Hi Daniel,

bist du sicher? Denn die Formel ersetzt nur den ersten Buchstaben nach den 3 ::: durch selbigen in Großschrift. Alles andere bleibt unverändert.

Was steht denn z.B. in einer Deiner Zellen?

Grüße Boris


  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: Daniel
Geschrieben am: 12.08.2004 20:22:44

Hi Boris,

was in der Zeile steht, kann ich hier leider nicht posten, sonst meckert das Forumscript. Daher habe ich das Wort mal upgeloadet http://www.aquaking.de/excel.htm


@ Ramses

Ja ich bin der Daniel von heute morgen:) Aber heute morgen habe ich eine andere Frage gestellt... da waren die Wörter getrennt.

Gruss
Daniel


  


Betrifft: Formatier die Zielspalte mal auf... von: Boris
Geschrieben am: 12.08.2004 20:26:39

Hi Daniel,

...optimale Breite - denn ne andere Erklärung hab ich dafür nicht, da es auch mit

<a href="http://www.asien-link.de/top/:::asien-link</a><br>

absolut funktioniert.
Im Ergebnis wird daraus

<a href="http://www.asien-link.de/top/:::Asien-link</a><br>

Grüße Boris


  


Betrifft: AW: Formatier die Zielspalte mal auf... von: Daniel
Geschrieben am: 12.08.2004 20:34:18

danke.. das klappt jetzt :=)


  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: ChrisL
Geschrieben am: 12.08.2004 20:16:47

Hi all

Wollte schon lange mal InstrRev ausprobieren, gabs in XL97 nämlich noch nicht. ;-)

Sub Grrross()
Dim iZeile As Long
Dim Position As Byte

Application.ScreenUpdating = False
For iZeile = 1 To Range("A65536").End(xlUp).Row
    
    Position = InStrRev(Cells(iZeile, 1), ":")
    
    If Position > 0 Then _
    Cells(iZeile, 1) = Left(Cells(iZeile, 1), Position) & _
    UCase(Mid(Cells(iZeile, 1), Position + 1, 1)) & _
    Right(Cells(iZeile, 1), Len(Cells(iZeile, 1)) - Position - 1)
        
Next iZeile
Application.ScreenUpdating = True
End Sub




Daten stehen in Spalte A.

Gruss
Chris


  


Betrifft: AW: Kleinbuchstaben in Grossbuchstaben umwandeln von: Beni
Geschrieben am: 12.08.2004 21:01:40

Hallo Daniel,
habe es getestet:
Gruss Beni



Sub Grossbuchstaben()
Dim iRow, iLen As Integer
    For iRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Pos1 = 0
        Pos2 = 0
        Pos1 = 0
        For iLen = 1 To Len(Cells(iRow, 1))
         If Mid(Cells(iRow, 1), iLen, 1) = ":" Then
        If Pos1 = 0 Then Pos1 = iLen: GoTo 1
        If Pos2 = 0 Then Pos2 = iLen: GoTo 1
        If Pos3 = 0 Then Pos3 = iLen: GoTo 1
1:
        End If
        Next iLen
        Cells(iRow, 1) = UCase(Left(Cells(iRow, 1), 1)) & Mid(Cells(iRow, 1), 2, Pos1 - 1) & _
        UCase(Mid(Cells(iRow, 1), Pos1 + 1, 1)) & Mid(Cells(iRow, 1), Pos1 + 2, Pos2 - Pos1 - 1) & _
        UCase(Mid(Cells(iRow, 1), Pos2 + 1, 1)) & Mid(Cells(iRow, 1), Pos2 + 2, Pos2 - Pos1 - 1) & _
        UCase(Mid(Cells(iRow, 1), Pos3 + 1, 1)) & Mid(Cells(iRow, 1), Pos3 + 2, Len(Cells(iRow, 1)) - Pos3)
    Next iRow
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "Kleinbuchstaben in Grossbuchstaben umwandeln"