Hallo zusammen,

habe ein kleines Problem. Ich habe eine ziemlich grosse Excel-Datei. In dieser Datei stehen immer Name und Anschrift. Teilweise ist allerdings alles GROSS

Ist:

HANNES MUSTERMANN VON DER MUSTERSTRASSE 12 23451 MUSTERHAUSEN

Soll:

Hannes Mustermann Von Der Musterstrasse 12 23451 Musterhausen

Wie kann ich dieses Problem am besten mit einem Makro lösen?

Vielen Dank für die Hilfe

AHNUNG?

Hi AHNUNG?,

denke mal, dass hier geht sehr in deine Richtung. Probiers einfach mal aus :

Einfach mal in Spalte A Werte eingeben :

A

1 TEST

2 BLAB

3 DUMMY

4 BLUB

Die Zelle A1 als aktive Zelle markieren (also diese Umrandung muß dann da drum sein ) und dann das hier ausführen :

Sub Ersetzen_Gross_Klein()


anzCel = ActiveSheet.UsedRange.Cells.Count


For i = 1 To anzCel


   ActiveCell.FormulaR1C1 = "=PROPER(" & """" & ActiveCell & """" & ")"

   ActiveCell.Offset(1, 0).Select



Next


End Sub

Das sollte es doch vom Prinzip her sein, oder ?! Entscheidend für die Umsetzung ist die Funktion "=PROPER", die der Tabellenblattfunktion "GROSS2" entspricht.

Um dann letztlich durch dein Tabellenblatt zu navigieren und jedes Feld mit dieser Umsetzung zu erfassen, müsste dann noch was in der Zählung der benutzten Spalten und Zellen geändert werden ! Probiers einfach schon mal aus wie ich oben beschrieben habe mit ner Testmappe und sag kurz, ob es das ist was du meinst und wo es dann noch fehlt !

Bis später ?!

Flori