Excel-Makro StrConv Zeichenkette in korrekte Groß- und Kleinschreibung umwandeln

Hallo,

ich habe ein umfangreiches Excel-Tabellenblatt. In dem Tabellenblatt stehen verschiedene Bezeichnungen in verschiedenen Spalten. Der Inhalt der Beschreibung ist teilweise in Großbuchstaben geschrieben, teilweise nicht. Nun möchte ich alles vereinheitlichen.

So sieht es jetzt aus

Spalte A
Centrifugal PUMP 7200-3
RINGSTÜCK ALU
FORWARD CHECK VALVE
T-STÜCK MIT Ü-Mutter
Ringlötstück Öldruckleitung

so soll es aussehen:

Spalte A:
Centrifugal Pump 7200-3
Ringstück ALu
Forward Check Valve
T-Stück mit Ü-Mutter
Ringlötstück Öldruckleitung

Ich habe im Netzt was gefunden zum Thema "StrConv – Zeichenkette in korrekte Groß- und Kleinschreibung umwandeln": Dass diese Funktion das irgendwie erkennen kann, welche Wörter Groß- oder kleingeschrieben werden müssen.. Keine Ahnung ob das geht es wäre aber toll.

Das Makro sollte über die Zellen laufen, die ich markriert habe im Tabellenblatt. Ich hoffe, jemand kann mit helfen.

Danke vorab

VbProperCase: Konvertiert den ersten Buchstaben der einzelnen Wörter in einer Zeichenfolge in Großbuchstaben.

Sub Lowercase()
   ' Loop to cycle through each cell in the specified range.  
   For Each x In Range("B1:B5")  
      x.Value = LCase(x.Value)
   Next
End Sub

 
Sub Proper_Case()
   ' Loop to cycle through each cell in the specified range.  
   For Each x In Range("C1:C5")  
      ' There is not a Proper function in Visual Basic for Applications.  
      ' So, you must use the worksheet function in the following form:  
      x.Value = Application.Proper(x.Value)
   Next
End Sub

Sub ConvertToProperCase()
    dim cell as Range
    For Each cell In Selection
        cell.Value = StrConv(cell.Value, vbProperCase)
    Next
End Sub