Office: Abändern der GROßSCHREIBUNG in bestehender Tabelle

Hallo,

weiß jemand, wie ich im Excel in einer bestehenden Tabelle alle Großbuchstaben in Kleinbuchstaben umwandeln kann und nur die jeweisl ersten Buchstaben eines Wortes groß bleiben???
Kann man da ein kleines Programm oder sowas drüber laufen lassen?

Wir haben ca. 3000 Datensätze und wären überglücklich hier eine automatisierte lösung für dieses optische Problem zu finden!

Danke!

 

Hallo!

Das kannst du mit der Funktion GROSS2 lösen:
vorher: "DIES IST EIN TEST"
nachher: "Dies Ist Ein Test"

 

Hallo Schatzi -

Wenn Marga das mit einer komplizierten großen Tabelle macht, dann hat sie zwar die Großbuchstaben weg, aber auch die Original-Zellbezüge. Ob das gewünscht ist?

 

Uuups,
das habe ich ebenso wenig bedacht, wie ich dies gelesen habe:

Die automatische Ersetzung könnte dieser Code übernehmen:

Code:

Sub Gross2()
Dim Zelle As Range
For Each Zelle In Sheets("MeinBlattName").Range("A1:B5000")
Zelle = WorksheetFunction.Proper(Zelle)
Next Zelle
End Sub

Der Blattname und der Bereich müssen natürlich angepasst werden.

 

hallo,

habe ähnliches problem. der unterschied: in meiner tabelle sind namen, adresse, tel-nr. sowie email-adressen und webseitent-adressen untergebracht. in einigen email- und webseite-adressen kommen ab und zu großbuchstaben vor - die möchte ich durch kleine ersetzen. die email adressen stehen in der spalte "J", webseiten in der "K".

wäre sehr dankbar für einen VBA code! danke!

 

Hallo!

Es soll also ALLES kleingeschrieben werden, richtig?
Dann mit diesem Code (Blattname und Bereich musst du anpassen):

Code:

Sub klein()
Dim Zelle As Range
For Each Zelle In Sheets("Tabelle1").Range("J1:K20"). _
SpecialCells(xlCellTypeConstants)
Zelle = LCase(Zelle)
Next Zelle
End Sub

 

jep genau, alles.

DANKE, hat geklappt!

 

Hallo Schatzi,

ich benötige leider genau den gleichen Code. D.h. ich möchte bei einer Eingabe von Text in eine Zelle den ersten Buchstaben in groß haben. Nur funktioniert dieser Code bei mir überhaupt nicht. Ich habe natürlich Blattname und Zellbereich angepasst. Trotzdem nix. ich habe das Gefühl, dass Excel gar nicht weiß, dass es diesen Code gibt.
Ich habe auch aktuell ein konkretes Beispiel im Forum.
Vielleicht kannst du mir noch sagen, wie ich den VBA Code mit meiner Excel Tabelle verknüpfe?

Gruß
Lincoln

PS:
Wenn der Wunsch so oft vorkommt, warum kann man das dann nicht in Excel direkt mit einer bedingten Formatierung lösen?

 

Hola,

dann zeig doch mal eine Beispieldatei mit dem Code.

Mit der bedingten Formatierung werden nur Formate verändert - die Werte bleiben so wie sie sind.

Gruß,
steve1da

 

Hier müsste jetzt der Code drin sein.

Aber bei der bedingten Formatierung kann ich doch den Text fett machen oder sogar durchstreichen. Warum denn nicht dann auch den ersten Buchstaben groß?

 

Hi,

kopiere folgenden Code in das Codemodul deines Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intOperator As Integer
    If Not Intersect(Target, ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        Application.EnableEvents = False
        Target = Application.Proper(Target)
        Application.EnableEvents = True
    End If
End Sub

Bis später,
Karin