Ich importiere Daten aus dem Internet nach Excel.
Leider werden hier die Wörter zusammen geschrieben.
Gibt es eine Möglichkeit, die Wörter die immer groß anfangen auseinander zu bekommen?
Vielen Dank!
Eby
Sub TrennenG()
Dim rngDaten As Range
Dim strOrg As String, strNew As String
Dim lngI As Long, lngN As Long
Dim bolHelp As Boolean
lngN = 1
For Each rngDaten In Selection
lngN = 1
strNew = ""
strOrg = rngDaten
For lngI = 1 To Len(strOrg)
bolHelp = Mid(strOrg, lngI, 1) Like "[A-Z]"
If bolHelp And lngN > 1 Then
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
lngN = 1
End If
lngN = lngN + 1
Next lngI
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
rngDaten = Trim(strNew)
Next rngDaten
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !
Sub TrennenG()
Dim rngDaten As Range
Dim strOrg As String, strNew As String
Dim lngI As Long, lngN As Long
Dim bolHelp As Boolean
lngN = 1
For Each rngDaten In Selection
lngN = 1
strNew = ""
strOrg = rngDaten
For lngI = 1 To Len(strOrg)
bolHelp = Mid(strOrg, lngI, 1) Like "[A-Z]"
If bolHelp And lngN > 1 Then
If Mid(strOrg, lngI - 1, 1) " " Then
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
lngN = 1
End If
End If
lngN = lngN + 1
Next lngI
strNew = strNew & " " & Mid(strOrg, lngI - lngN + 1, lngN - 1)
rngDaten = Trim(strNew)
Next rngDaten
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !
Function SplitText(strText As String, iIndex As Integer)
Dim strTmp As String, i As Integer
Const strDelim As String = "|"
For i = 1 To Len(strText)
Select Case Asc(Mid(strText, i, 1))
Case 65 To 90
strTmp = strTmp & strDelim & Mid(strText, i, 1)
Case Else
strTmp = strTmp & Mid(strText, i, 1)
End Select
Next
If Left(strTmp, 1) = strDelim Then strTmp = Right(strTmp, Len(strTmp) - 1)
SplitText = Split(strTmp, strDelim)(iIndex - 1)
End Function
Gruß
Rudi