[bLaCkRaBbIt]

ich will,dass jedes wort in einer Zelle groß geschieben wird.wo bekomm ich so ein script her?also wenn in einer Zelle steht: tobias kreiner, dann soll daraus Tobias Kreiner werden!

[ichbines]

hallo

Das geht mit einem Makro.

Hier hast du ein Fertiges mit einer guten Anleitung:

Zitat

öffne das entsprechende (oder neues)
Dokument;
- gehe im Menü auf "Extras"
- anschliessend auf "Makro"
- anschliessend auf "Makros..."
- dann bei Makroname "ErstesZeichenGross"
eingeben auf und das hier (Rest) darunter
in das größere Feld hineinkopieren:

Dim c, x, y
For Each c In Selection
If c.Value <> "" Then
x = UCase(Left(c, 1))
y = Right(c, Len© - 1)
c.Value = x & y
End If
Next c

und auf erstellen klicken
- Speichern und anschließend zurück in das
Dokument wechsel, z.B. über die
Taskleiste...
- die entsprechenden Zellen (oder einfach
alle) mit den kleingeschriebenen Wörtern
makieren
- wieder auf "Extras" klicken
- dann auf "Makro"
- dann auf "Makros..."
- dann auf "Ausführen"

schon ist es passiert icon_wink.gif !


Englische Excel Version mit entsprechender Menübezeichnung:

Extras = Tools
Makro = Macro
Makros... = Macros...
Erstellen = create
Ausführen = run

Quelle: Zierfisch-Forum (mithilfe von der Google Cache funktion, braucht man sich nicht registrieren)

Dieser Beitrag wurde von ichbines bearbeitet: 03. August 2005 - 02:26

[bLaCkRaBbIt]

klappt leider nicht. ich habe office 2003,vielleicht liegt es daran

aber ich habe jetzt eine seite gefunden,wie es geht.

hier
hier stand auch was dazu:
klick
falls man nur den modi braucht,das jeweils das erste wort groß geschrieben werden soll,dann ändere man das script einfach so ab:

Zitat

Public Sub GrossKleinSchreibung()
Dim zelle As Range

For Each zelle In Selection.Cells
zelle.Formula = StrConv(zelle, vbProperCase)
Next zelle
End Sub

bisher funktioniert es bei mir.hoffe das bleibt so,kenne mich nicht sonderlich mit vb aus

Dieser Beitrag wurde von bLaCkRaBbIt bearbeitet: 04. August 2005 - 05:08