ich benötige Eure Hilfe.
In Zeile A1 steht z.B: AntonBiber.
Nun möchte dieses Wort trennen, jeweils beim Grossbuchstaben.
Wenn möglich auch in VBA. Weils ne größere Datei ist.
Vielen Dank.
mfg Ralle
| ||||||||||||||||
Sub Trennen()
Dim SP%, ZE&, LR&, TB1, j&, i%
Set TB1 = ActiveSheet 'oder aus aktuellen Blatt
SP = 1 'Spalte A
ZE = 1 'Zeile 1
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Application.ScreenUpdating = False
With TB1
For i = 1 To LR
For j = 2 To Len(.Cells(i, SP))
If Mid(.Cells(i, SP), j, 1) = UCase(Mid(.Cells(i, SP), j, 1)) Then
.Cells(i, SP + 1) = Left(.Cells(i, SP), j - 1)
.Cells(i, SP + 2) = Right(.Cells(i, SP), Len(.Cells(i, SP)) - j + 1)
Exit For
End If
Next j
Next
End With
End Sub