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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen