Wenn Großschreibung dann

manas

Hallo, nachdem mir schon mal hier geholfen wurde, möchte ich wieder um
eine Lösung ersuchen.
Ich habe einen Text in Excel der Sätze aufweist mit nur Großbuchstaben und welche
mit normaler schreibweise, also der 1. Buchstabe immer groß, dann kleingeschrieben.
Ich möchte ein Excelmakro welches mir die Spalte B ab Zeile 8 durchsucht und
wenn ein Satz mit nur Großbuchstaben gefunden wird, dann umwandeln in
einen Satz wo nur der erste Buchstabe großgeschrieben wird.

Wer kann das?
Vielen Dank im Voraus!
L.G.
Fred

Tanto

Hi Fred

Wie gewünscht

Gruß Tanto

Option Explicit
Sub ErsteGroßbuchStabe()
Dim Zeilen As Long
ReDim Bspalte(Range("B" & Rows.Count).End(xlUp).Row, 1)
Bspalte() = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
For Zeilen = 8 To UBound(Bspalte())
Bspalte(Zeilen, 1) = LCase(Bspalte(Zeilen, 1))
Mid(Bspalte(Zeilen, 1), 1, 1) = UCase(Mid(Bspalte(Zeilen, 1), 1, 1))
Next Zeilen
Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row) = Bspalte()
End Sub

manas

Hi Tanto, du bist ein Genie!
Vielen Dank und entschuldige die späte Antwort.
L.G.
Fred

Jetzt mitmachen!