AW: Kleinbuchstaben in Grossbuchstaben umwandeln
Beni
Hallo Daniel,
habe es getestet:
Gruss Beni
Sub Grossbuchstaben()
Dim iRow, iLen As Integer
For iRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Pos1 = 0
Pos2 = 0
Pos1 = 0
For iLen = 1 To Len(Cells(iRow, 1))
If Mid(Cells(iRow, 1), iLen, 1) = ":" Then
If Pos1 = 0 Then Pos1 = iLen: GoTo 1
If Pos2 = 0 Then Pos2 = iLen: GoTo 1
If Pos3 = 0 Then Pos3 = iLen: GoTo 1
1:
End If
Next iLen
Cells(iRow, 1) = UCase(Left(Cells(iRow, 1), 1)) & Mid(Cells(iRow, 1), 2, Pos1 - 1) & _
UCase(Mid(Cells(iRow, 1), Pos1 + 1, 1)) & Mid(Cells(iRow, 1), Pos1 + 2, Pos2 - Pos1 - 1) & _
UCase(Mid(Cells(iRow, 1), Pos2 + 1, 1)) & Mid(Cells(iRow, 1), Pos2 + 2, Pos2 - Pos1 - 1) & _
UCase(Mid(Cells(iRow, 1), Pos3 + 1, 1)) & Mid(Cells(iRow, 1), Pos3 + 2, Len(Cells(iRow, 1)) - Pos3)
Next iRow
End Sub