Alles Gross / alles klein



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Alles Gross / alles klein
von: TF
Geschrieben am: 17.06.2002 - 13:46:20

Hallo,

mit folgendem Makro schaffe ich es, daß in einer bestimmten Spalte alles "groß" geschrieben wird - hier Spalte C:

Sub Gross()
Dim I As Long
Dim Letzte As Long
If [C65536] = "" Then
Letzte = [C65536].End(xlUp).Row
Else
Letzte = 65536
End If
For I = 1 To Letzte
Cells(I, 3) = UCase(Cells(I, 3))
Next I
End Sub


Wie kann ich nun erreichen, daß jeweils nur der Anfangsbuchstabe eines neuen Wortes groß geschrieben wird??

Bin für jede Antwort dankbar.

Gruß

TF

nach oben   nach unten

Re: Alles Gross / alles klein
von: Hajo
Geschrieben am: 17.06.2002 - 13:57:57

Hallo TF

schaue hier
https://www.herber.de/forum/messages/128714.html

Der erste Buchstabe groß der rest so wie eingegeben.

Gruß Hajo

nach oben   nach unten

Re: Alles Gross / alles klein
von: WernerB.
Geschrieben am: 17.06.2002 - 20:19:20

Hallo Thomas,

teste doch mal dieses Makro:


Option Explicit
Sub Gross2()
Dim As Long, laR As Long
    laR = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 1 To laR
      Cells(i, 3).Value = WorksheetFunction.Proper(Cells(i, 3).Value)
    Next i
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Automatisch "undo", aber nur einmal!"