Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Buchstaben suchen und trennen

Buchstaben suchen und trennen
09.02.2009 16:21:00
Ralle
Hallo sehr geehrte Forumsmitglieder,
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vor Großbuchstaben trennen
09.02.2009 17:03:00
Ralle
Hallo Erich,
genau das, was ich gesucht habe.
Auf meine richtigen Namen RALF höre ich kaum noch - alle nennen mich Ralle.
Werde dieses aber von nun berücksichtigen.
Vielen Dank.
Ralf
AW: Buchstaben suchen und trennen
09.02.2009 17:07:00
UweD
Hallo
so?
 
 ABC
1AntonBiberAntonBiber
2MaxMüllerMaxMüller
3UlliMeierUlliMeier
 



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


Gruß UweD
Anzeige
AW: Buchstaben suchen und trennen
09.02.2009 19:01:00
Ralf
Hallo Uwe,
vielen Dank. Habe von Erich schon zwei Tipps bekommen, haben mir sehr geholfen.
Deiner ist überigen auch nicht schlecht.
Vielen Dank und mfg
Ralf

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige